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U- ?.C*5 



L1>A !» 

SUBL# 
8U*L* 

PI. 3 I, 

MOVZL 
MOVZL 
i.OA 2# 
M 0¥ 2, 
JMP .+ 
LDA 2 # 
SU*L* 
J W P sc 
M0V2L 

A? ,f UL 

SI A 1, 



tm 
tit 

i»i,SNC 
2,»,SwC 

N2 

SOli 
!,J 

3,3 
SCW 

C 1 $ 

2,^»SNC 
N4 
3,t,SKP 

3,1 

I 

5CN6 



I TEST FOR «♦« 

I YES 

l^n, TEST FOR *** 

?f£S 

INOW , T£S? roi A DIGIT 



fNQT a DIGIT 
fFORH DIGIT 
I6£T NUMlgR 



ITEST FOR OCTAL 

|N0 

IYE8 f TEST THE DIGIT 

18 0^ 9 f ERROR 
f OfC 

IFQRM NUHS£R*!3 
IADD IN THIS DIGIT 

ISAVE NUMBER 



§f« 1 



• ■ 1 A i '^ 



p 1 










»f 










i '4 








f3? r 


•? :' 


/ * JH^ 


-> * 


4£ f 4 


*-c v 


„ * 


*'**:? 


§« 


? * : s 




^r 










Til 








I-*-* 


«8 


% iM 66$ 


¥> i 


- I5i 




tt9 


f .< h f « 


v-h 


/f 7 c 





3F r 



*-"*-:* '-iNLS *!3 ■ 






* i -" " 
SCN 1 



%E*~ v- *~ • *"** 



I N! 



1« 

* 7 
IB 
IP 

22 
23 

9.7 



i 6 6 J 
*- « / 

1 6ft 5 

»6f§6 

it»57 

.672 
■673 
.674 

■ f > 7 * 

i«76 
^877 

■7«(4 



1 - : p < 

? 2 4 5 .. * 

= < <* 4 a 3 l 

< -h4 I 4 
f . ,• i,i 4 ** 6 

'• -r £ 4 c! *i 

| ' r 4 1 5 
•/• <* w 4 3 

/*'»■ 7 11 



i v: 






NE5 1*1 

e < T * 1 i 5 C - <* 



S's-Aa 



»# I 



,S\^ 



r ^ S 2 C ** P T 

J HP SC4,^ 



INQT 



.5 



|S7C9fc S15ME0 NUMBER 

itgst fm tst 
Ives, r»e ? fc J£^T 

IAND TEST I? 

I¥£S, CHiCM NODE FOS EMIT 

|N0» BACKUP AND SET NEXT 



7 » h 

7 1 7 

7 > 

/ " '• 

/? t 1 



1 

f * 7 £> 4 



% ; .» r i 



?V?1 



'. • i s *" * I' A 
,:•• i- 5?" M 

I "-" * r- 1 - i 



NO 



IPO 
- -"i 

f NO 



* .v - •; ^ r* :* « 7 - " ", *;' 
5 *•?:. SKI ?"£ s^ T 

« -i ': v - ; ?* r =-, T 
/ 1 ~ *? n p 



y ^ c. 

} 2 - 

73* 

? ;* 5 



** -• 



• '- *. i J m P $ hi E X T 

i -M ? 7 S 1 A fc S X 

•• '.'•■«»• 5 JNP SCN9 

jn.,3- ski» au-ays cecums 



I a? f KCD£ *'09D 

?^0T :Cn£, R2S£T FOf? MaCSC- 
|OG*E, SJ5SE7 NODE 



■• 7 /, 4 


w-H'437 


NEXTI 


BGN 






p j> p 1 5 5 




L'-'A 


9 * T £ * C 


w736 


pPWj§t:g 




J HP 


„*2 


/ h / 


.- :> ■ * f. t 


SCN9I 


I «; a 


•5l»^£Ht 


VI 7 4 a 


- 1 « s ;? 




r. ; 4 


? r cn?"^T 


- 7 „- 1 


?- b H 6 5 «* 




J r - 6» 


S C 4 k -' 



|PICKU° S^V£D COMMAND "0I fe -?£» 



fPTCU^ r^ACRO COMMAND - c t J f--' T E ^ 

fCO^PT RESET P03 SCALER 



''742 



"a Mi? 

/t 

92 

?? 
£6 
C7 

7 5 

:: 

13 

t * 
15 

i? 

18 
19 

2* 

21 

ri 

23 
3 4 
25 

26 
27 
28 
29 
3p 
31 
32 
33 
34 



MAIN 



o»7 51 

"752 

P753 
■r-754 

ifr-755 
'3756 

■ «757 

>r*76» 



/ h 4 i *> 3 
? * 6 ** 7 ^ 
r* •* p 1 2 2 
VIW27 



o pt ^ p p l 

I", I* P5 p '^ 6 

t* i* R ft 1 ?> 
e ffl f • <* 1 p 

«»P^13 
9, f, q, & 1 4 

efl?P»i6 
P«flp>37 



^(^7 6 i «p?«*0W 






5 & T l 5 * * 5 » * ? * * 

CQHPT 
LCa 2,Ci5 



I6€l AND :n£SEMSNT 

|CQ**AND P3|WffR 

fTgST FOt * *A*?RUSE *E?U»* 

;*ES» SET ->€ ":|? r C^A»A*TE» 



;%-, ^*r :^/isi3^ 



i t «i 4 *- % .. > T c- - * * 3 u f " - * 

!?AS W € t rhC :5'' % * < r 3|~-5 f* £%T«I£5 *£SkI*a*£3 2 ¥ * I£ e C 
I IF *X»S%LUC*A*.*t r '-:;V_£«S£C?MO* ? H£« Tf?E IS 



TABLS 



i! 
86 

lfe 

IP 

13 
14 

16 
37 



101-06 



Hi 



113-14 



HS-37 

lEND OF TABU 



t EOT 



* •> : " 



9 2 

9i6 

*7 

pf! 

IP - ■/ / * 5 , '2*7* 

i "t, 
\ J 1 

t 4 • t-7*« v - * 1 •• ? 

I 5 ,,7^5 .-• t. | 5 . <$ 

i 7 ;■ : - 7 ^ ;- -* > % „- 3 

|B / i* ? 6 7 ? ••' | 4 v 7 

1Q" 

g 5> p « 7 ? a p *> m 1 1* 4 

21 ."/7 7i ^.-13 47 

24 0*773 v«»i644 
25 

26 * ^ 7 7 4 fc °» p 1 C'" 6 

27 tr«?77 5 PP2134 

2§ 

29 ^776 {"«*iil 

3^ W77 ^P1447 

31 

32 PlF-fl« kiw^li2 

33 P1P>^1 &P1167 
34 

35 «tf^2 0Cip|13 

36 H**3 ^1335 
37 

38 e»10P4 MHi4 

39 P1W5 F«U/4 
4« 

4 1 fl I0»fl8 H««U5 

42 RIPP7 P&1943 
43 

44 Pic*i^ 05*t^l 18 

45 fclPU F*i5M 
46 

47 01012 »?»12^ 

48 ?1»13 ?^25*14 
49 

5ft f'l^l* £*f*121 

51 /\ *\ 5 w/156 3 



fTAPE 2 
C * * 5 U * C r - ** ** 4 * C * ;. S „. € 

£ » - w y * * * s? $ £ rs t; - * | \ j 

ADDRESS OF ^"O^l^E 



«4?s!nD 



,f C 
CHMG 

"D 

»E 
EtvOTP 

«F 
F 

"1 
INSRT 

M J 
JUMP 

«K 

KILL 

«L 

LINE 

«H 

NOVE 

»N 
N 

tip 
FNCH 

«Q 
Q 



f£«£ND TAPg 

IP-FEED 
fl-XNSERT 
f J-JUMP 
IK-KILL 
IL-LXNE 

fP-PUNCN 
tO-SEA^CH BUT DON?? PUNCH 



m f- '* '■*-- i \ " '* F * r J 



I 



*!^f v p g 



: *»v v 4 L^ 



I -, -.' - i.*.t, 






JZ*EfcO 



*3 



fr • 1-33 *■ ' ! 1 6 6 

<>- 1 P 3 6 f ' * y. w b 6 

- 1 •' 3 7 •''■ilf? 

1 P 4 # f* P |* R 1 i 

& I P 4 I ■/• ,' J. A & 3 

&? J, s* 4 2 (?*. «> ft t-" p 



COLON 



?£*'*L 



P INT 

II 



|f«TYPS NUM8IS OF LSNgS 



f«-TYPS NUMBER Of CHARACTERS 



l.«TvP£ CURRENT L1N£ fcU*8ER 



fTAB*INSE8T ?AB AND TEXT 



A ?P2i .MAIN 

Pi 

^4 

P5 
'/* 
5«7 

^8 
C*5 

1* 
ii 
12 
IS 

1 5 *I«>43 v-54422 

16 /»iM4 ^254f-i?i 
5 7 *>i?45 fr?i 123 
in H?4« 1?3«^/ 

19 V\?A7 P ? 4 1 2 »/• 

si Pt«5i pai^n 

2 2 ?» 1 fc 8 2 k» 2 4 i 3 4 

23 fr*iP5d 122513 

24 ?! i tf 5 4 I* 1 Co ¥"> A if § 

25 /i<?55 MfrU23 

26 ^ i « 5 6 CiMfe^7 3 

27 IU0 5? f^p|23 

28 l^lPfiC*. fc 3 4 4 ^ 5 

20 pi ?>6l 0^14^2 
3>* 

31 Ple62 ^44123 

32 rl063 w2tf&33 

33 HP'64 c>?fi774 

34 ^lf*65 fl&fc&Pifc 
35 



I * 3f ; ^rS!"ir^;5 w**aE f.uQ 
.■:Ll3'*S T ^fc CAUL 

JSR MOVE 

CUNuSED) 

^ ? R * * ^ R E T ; j » % 



U^ i,*»,3 

LTM ;*,CLRP? 

ADD 1,2 

IDA l»SEGIN 

LTA 1 »t*ST 
5U*L* I^jSnC 

JrtP M0VE2 
STA f /,CURPT 
JSR fGTCHP 

CURFT 
M0VE1I 10* 3»Wft?N 
JNP 2,3 

H0VE2I STA i,CURPT 

LOA P»C33 

JPP MOVE! 

MRTN1 



I SAVE R£Ti,a* 

IG£T ARS 

IAMO ADD TO CURPT 



fCOMPARE N1TH SESIN+I 
IEND OF THE SUFFER 

fCOHPARE «TH LAST 
UNO OF TNI iUFFER 

|G£T THE NEXT CHARACTER 



IGET RETURN 
MNP EXIT 



fENO OF THE SUFFER 
ICET ESC CODE 
IANO EXIT 



UU .MAIN 



i£T 
7 *- i> * 






^h"i^ (ACt»AC2 tr* 3*£££*'*;^* 






* ,£•". * 



ILAI 



*- :, * -; •- * - * s ■: * s ; s- ? ^ = " ? i 



i . 


►U * 7 I 


»5p J A3 


' J 


'- 1 ' 7 ? 


•■ * ?, 4 „ ^* 


2« 


r«lP7 3 


•v 1 3 4 C ■.-• 


21 


* 1,-74 


1^1??-- 


?? 


w 1*75 


yi 2 1*1*0 


?■% 


Hi 5*76 


ri 3 fr" ? 5 * 


3 c 


r- 1 9 7 7 


1 ? 1 8 1-2 


23 


,7i i 1 ^ pi 


! • i ;*■ - - ' 


c ft 


« 11*1 


1 4 3 4 fr 


" 7 


ir' lit*? 


v,3i-.143 


i- ,- 


* 1 1 «* 3 


'•-14, 1 



'. ,. * ^ T '"' •*' ■*. ■> 



G • C H ! i 



*- r -« ? , ? & > ? 

• ' * .* i 
S r * ?,SAC+S 

1S2 #i»3 
»C-vz* 2,2 
IDA ei,0,2 
LL-A 2,C377 
*OV 7! f K,SZC 
^ f J V S i#0 
^NO 2p ft 
Li-'» 2,SAC+2 
JMP 1,3 



iv^' r "^s '* ** t -* * £ * *"-*£ *-~ : 

iiHzmmm the pointer 

ITU8N POINTER INTO ADDRESS 

I^HD GET *0RD 

fGET AN S 91^ tfAS* 

fTEST RH 0^ If 

?L€FT HALF, SWAP 

Ii BIT CHARACTER INTO AM 

IRESTORK AC2 

fANO RETURN 



a 0/2 5 ,rAls 

*2 

S3 
ftd 
?5 

4*6 

PF 
P§ 

ii 
i» 
1 1 

12 
IS 
i 4 

|6 
17 
18 
19' 

8« 

21 
22 
23 
24 
25 
28 
27 
?8 
29 
3^ 
31 



wli«6 
PI |P7 
Oil*' 
Hlti 
'* It',? 
* 111 3 

rl 1 1 4 
v» 11 J 5 
(Mil* 
*1117 

^12^ 
"1121 

iM122 
M123 



> * I 4 ;- .* 
I 5 1» 4 / j/ 
151113 
fe(*P4M 
126 5 2/ 
15P-4PW 
F 3 M fr> 3 

i ? 1 1 v ^ 

1 2 6 <* ¥ !?• 

p5w*27 

t»44 4£»6 

M6»73 
P * $ 1 2 3 
125113 
p a p 4 P 4 



LINE S«^s^^?:%e # *CVl! TMg PCI^E* OVffR 

i^G t»i^o *m*re a»s fqllc*s 

J5R Ll'^E 
CL^cSEU 



hit, " K) i 

*»0VL* 2,2, 5*C 
JH& ,*4 

SUHZL lit 

NE5 2,1 

INC 2,2 

ADC 1,1 

STA 2,NL1NE 

STA i,UNEi*l 

JSW #G 7 CHS? 

CURPT 

M0VLi» 1,1, SNC 

JHP ,4-4 



.'$av* ?*£ »E?u8^ 

1G£T THE ARS 

IANC LEGATE IT 

ITE8T FOR NESATIVE 

INO 

IY£3» SET AC1«*1CF0RWARD) 

IGO STORE AC1#AC2 

f INCREMENT 

ISET ACi«*ttREVlR8E) 
istore ARG 
I8T0RE DIRECTION 
ICET A CHARACTER 

fTEST FOR REVERSE 

INO, FORWARD 



'iA 



.MAIN 



* . .j ~* 

- : ?* 

• , z "' 

i j % jjj 

i « *i 

l Jul 

1 *■>,. 

5 - s "5 « 

* I US 

4 ! > L 

: ■ ?. ' 
; i * f 
t ; :* ; 

' i '- ' 

! i -~ «_ 

* i « * 



.? 



: .. '■* *' 

'■■ £) 

'■fi 5?<# P 
* ■ 4 
IH i'll ft 7 
* 4 4 
v - 7 
'•* 1 

(*• 6 3 1? 

•-'- 1 A 



I 1 

27 
Pi 



6fl 
o » i 



v ^ p L 2 ^ € ^ 
j 5 ? e v v «• 



^/"••^ t 5 



^ A i. T 



f >S - * l > . , 4 * ; T 

I - -t '% ? *"'*- ? : : 

|rr? fffff 

f£XIT 



?' 
?? 

?H 

?7 

?8 

S> y 

3 - 

3* 

37 

39 
4^ 
41 

4^ 

4, '4 

4 4 

45 
4i> 

47 

4 9 

8« 

5 i - 

«t 
s * 

?«* 



1 I A & 

t i 4 5 



k~ P r i* 



1 |4? 
1 i5« 
Mbl 

1152 
i 1 53 
1154 



•~.*77fc 

p « 6 *> e 5 

tf* 6 F 6 4 
'/3*771 



• • i ! 5 *5 ^ 5 4 7 6 7 

• 1 j S 6 ; ? 4 i 3 4 
^1157 &-3*"i ga 
«" U P 5» i 4 6 4 f * ^ 
CilSM (?i « fr» 7 7 « 



•■'13 A? 
t»l 163 

' i ! S 4 

Pll«5 



>■ 5 4 7 fc 2 
(-V6J.-2 
f"^lfll23 
1 J> 5 4 y « 

f * B 7 6 3 



!>$Tl 

I 



COLON I 

COLNt 1 



f ■ 

I 

I0UALI 



I, 
POXNYf 



JMV£D ftSTUP^' 



SUSROUTl^E TO PRINT TOTAL 
K'bMt?EP Of LINES IN TN£ SufFCff 

J-5» COLON 

(UNUSED) 
RETURN 



STA 3,LNRT 

J&»* «L^ ? - 

LAST 

J5» •OECML 

JSR PCRLFf" 

LDA 2,LNRT 



ISAV? THE ^ETUSN 
|S£T ^U^9gi Of LlN^S 

IAN0 TYPE IT 
ITTFE CRiLF 
IANO RETURN 



SUf?*OUTINE Tn I3RXNT 

NUMtJEft OF CHARS IN THE BUFFER 



8TA 
LDA 
LDA 
SUB 



SiLNRT 
1#LAST 

2»BE6IN 

COLM 



ISAVE RETURN 



IPRINT THE NUMBER 



Pil^T CURRENT ljme NUM8E? 
STA 3,LNPT ISAVE RETURN 

JSR PLNN 
CURPT 

INC 1,1 

JMP COLNI IGO PRINT AND RETURN 



1 1 
^2 
?.Z 

9& 

89 

IP 
1 

*,2 
J 3 
! * 
15 

V 
18 
ig 

2* 

21 
22 
23 

? 4 

?5 
26 
27 
2*i 
29 
3* 
31 
32 
33 
34 
35 
36 
37 
38 
39 



.'-*!** 



- I ; 7 1 
• * *i 'i 

.117 3 

> j : 7 * 

117 5 

'117 6 
; t 177 

?'!2«?2 



^1205 

?12*7 

fr'< 1 2 1 a 



~*ti 



.: .^ '1 , : v r *s ; - -a * t %* S 



*'~'~ 



I P» &■ 4 i-. V> 

i a |) p p 

i> > a i ? i 
f : $ f i ^ «? 
»63^77 
ti344^2 

•/.v «*/■<* JSTN1 



J' 5 ^ i .» *i * 

# «■ J i <s s. ** * 
*. f • » -> & i.< ; 

5 ? * J ; : : • x 

;, . A # » S £ S 1 % 

2 " €• »- v v. -H -' - 

- Z * * ,, i ; * 

\ I V 7- t ? 

ZZ* ?,'- 
JS* #_**? 

HALT 

i. : • i 1 : J P " *• 



jit*" is*;^#£k* 

•a-'C' S-j8T§i£? I '^3^ IT 



IMOve 4RS-1 LINES 

Ifffff 
fS£T *£TU3n 
1**0 EXI* 



8»Z JU*P TO THE 6EGINMING CE^O) OF TN£ SUFFER 
CALLING SgOuEMTcl 

UNUSED 

RETURN 

«2fcl2fr SI IDA B, BEGIN 
«4fli?3 STA f CURPT 

W\4p.2 J HP 2,3 



£2*134 ZI 

MP775 



IDA 3, LAST 



:" „ ?.-•'- r 



St 



• M ; « V 



'4 ,- v^/jMrSf t: ?! h< f. ** ^, * *"' 






- T -• i 



:- ,*, :•< 



|gl BA JL| 





* ?; 1 H 


T . , ,« | 




La A 


i .£:_&?■* 


1 !F 


.'-;'/ 


ft, M (J |S1 




4 ' 


• • , ~ '•, -> * 




f ; i 2 2 ?• 


- - » ; -? 




:_, ; • a 


- ; -::vy? 




v* f 2 2 i 


/, * - /■ 




*»T - 


y ,?g ^ § 


5* /« 


'*'>.?< 


v 2 442 33 




U*« 


! .C33 




- ! ? 2 -5 


;■■ * e* '* ? 3 


S&C".*! 


J £<-. 


*&^CHR 


5 *i 


; ?5c 


-. • U*a 




Tt ?: r 


8 4 


, • ;• 9 r» 


1 -4|5 




S^j 


t r- f i.SMK 


25 


1 ::• ? -> 


;•• • ^i^ 




J>'P 


S^C^i 


86 


i*27 


11!-' ? 




HOV 


%s 


.' 7 


ft I ? 3 a 


y v m ., -; 4 




JS^ 


^t-TC^.l 


?■% 


1^1231 


r /i« ff->3 




T £ M ,6 


• 


«r 1232 


I -e4i? 




SU^« 0#1,$N« 


•m (j 


pi 233 


/ -r4j, 5 




JNP 


SHCH2 


:* i 


v.1234 


!?.?<*• *? 




« ij rt 


•-*»,2,Sk-« 


j 


*' 123 5 


fi * y. 4 fr 3 




J^-P 


»#3 


33 


•M23<? 


• 1 -•• < 2 ? 




?S2 


CUBPT 


-, s 
.-,-5 


#12 3? 


- .-../7b7 




JNP 


S«CH+5 


- •. p * ; 


tr- I K 15 4 




IS2 


T£M« 


-1 ? 


: t ?. 4 1 


«»?P762 




JNP 


SRCH0 




•• 124? 


v- 3 *■ 4 1 S 


SSCrili 


-T&Z 


SiTN 




v i 2 4 3 


f ? ^ i 5 i 




LOA 


0, T£HB 


•: 


154fi 


.*4.-*23 




ST* 


8 , C WPT 


42 


- ! '- « >, 


p 2 1 1 & 3 




L&A 


a,?l:MA 


4 3 


! 2 4 ,* 


* 48 123 




ST A 


? # CU»PT 


4 4 


- 1 ? fi 7 


/ -'241 t 




Jf4P 


fS»T^ 


46 






ISSARCW 


FAILED 


,,/ 


.' is? - 


, ? 1 & J 2 2 


5RCH2I 


037 


CO*PT 


r ;: 


•- 1 ? e i 


F2/12* 




U* 


»i8EG1N 


'S ^ 


• *. r 5 ? 


9- A f? i 2 3 




STA 


C-^CUi^PT 




* * e f 


?16*F3« 




IS2 


J P T H 


S 1 


* r --, /, 


: * ?- 4 - a 




.: •*? 


*«1 .V 


52 


, ! ',)«i 


§ *.<* 6 'A 7 ft 




wd* 


"^ £ § *^ w 




. , ., ^ ^ 


: ■ «i&f 




e^risa*? 


54 


1 £ ** / 


?-*2flv l 




jwP 


?$eTN 




•? > (% ,i 


p i p» i fc. s 


SPTfMl 











i3£T A Cii* 3 ^C 1 '5* i v 3 iMC»?*£N 



?3feT :Hi^iCT£R 

fTgsT ^OR ESC 
r/2,3, -AIL 

f^OT EQU^l, ADVANCE CU»PT AN 
fST^iT OVER m^l^ 

!A5AI^ 

|INCSEW£NT RETURN. 

?5£T S2»' C3«^T 



fA^O RSTtJRN 



JDgCREMENT COMNaNO P0INT2R 



fTEST ?«0OE 

IAM0 «£?U^N C£R^"CR3 
I SAVED RETUS^ 



-':.-2' 



4 » r-. 



07 



I 
i MP 



>' ~- ■ ? £. - 



sfitJti.Sf' 



' • 






3 • # 

>>, 15 K 



1^ 

21 
2? 

33 

S>/ 

at* 

27 

?-i 
2^ 

3* 
31 

32 
3^ 
*4 

35 
•35 
■17 
3* 

3w 



T » • v w 

* -/ s, 

17 f j 

*i2*7 

' : > I 3 7 * 

:??! 
» ! <? 7 2 
.•1273 

-J?7? 

«I276 
^1277 

* 13*1 
*13«»2 
frl3v*3 

P i 3 C* 4 

ei3P»* 

^ t 3 i •<*• 
(* 1 3 1 2 



; , ~ * -•. 

'- ? 2 * 2 5 
: 5*253 

/U-4fr2 

'•• 4 •: ~ 5 « 
. -?^7* 
«W.t63 
i ?• 1 a tf 5 

■/*M 15 
•/■ >• & ^ 7 4 ' 

f 2 4 i ?> 4 
P 3 fl & 3 3 

132414 
H ** p> 7 6 4 
tf 2 & 2 tf 6 

t f* 1 PP4 
p^^77i 
w w 2 4 y* i 



its 



£i?f?TN| 



9 L' * ? "i 

5 * k ' . v ;. ^ 

J-: ^-~- 

^0¥ 

JSS 
JS» 

7 £ * .4 
LP 4 
IDA 

sue* 
sua* 

*ov 

i 



#IYP£ 

i,2 f SZ» 

J*< 70C*.' S >5 

.-2 



AND 



^ ? •! 



: P y t 



AVE IT 



IN NULL 



f;|£T rstvia-js 

JANS GET AN €3C 






1 1 % ! f 






f v< 









pa 

§3 
07 

ii 

10 

11 

!* 
18 

17 
18 
IS 
2 'A 
21 
22 
23 
24 
?>5 
26 
27 
28 
29 
3«* 
31 
32 



.MAIN 



-*U3!> 
/•1336 

/■1337 
0134* 
fr'i34J 
^1342 
U343 
01344 
«1345 
01346 



P54451 

&GS277 
^2*123 
04*134 
i/s 2 1 4 f- 6* 

M «* 4 1* 2 

p a d e » ^ 
»63^77 
PitfM12 



C*LuIH5 3FiJ£*C£l 

JS«? KILL 
ARG 

CUNUSE03 
P £ T U » K 

JS* SE„ET 

(UM-SED) 

PETUftN 



KILL! STA 3 f DL»TN 

1NT0S 

LDA S,CURPT 

STA 8 f TEMB 

LDA # P,3 

STA 0, ,42 

JSR #LNE 

i 

HALT 

J*P OLT0 



fSAVE RETURN 

I01SASLE INTERRUPT 
ISAVE CUR?T 

IGET THE A«S 
IANO 5T0PII 
IHOVS OVER LINES 
fARS 

IIMP033XBLE 
fOO, AHEAD 



• " ' 



3 <## 



57 063*77 



• ISLET 1 



«. ?. 












2/« 

9<S 



' • **>% 

• 1 3 * ,? 

■ ! .) * j. 
% .h ft f- 
1 566 

•13*7 
!37ft 

■ 1, - % 7 i 

• 137? 



i * s p # 

| 4 1 •■'• ,- v* 

13iatf« 
*5M23 

.• *•- 1 bl 



SI a 2,CURPT 
SI A 2, LAST 
ST & y,T£*A 
H* i i,C33 



**£*£*$£ TNE A3S5 



|S£T CURRENT POINTfR 
fSTOJUSE POINTER 
fPICKUP LOCATION 



■*7 



3 1| 



I MAIM IQOP 

IPXC^-UP AMD STORE SACK X*TO SUFfgi 



p. iA7 -; ., -h..?4 KILL.'* I -J&rf fGTChl 



4- , , | 37 _-' -, if.. i 

f ,: z i * ? * - ' ft t i a 

^ 1*7^ . —'liM 

•1-5 -id/? I » * A % 3 

J- .- I &fe-/> (, *?•£»* 3 

•i - -l^-u * iv-134 

v*3 i' 141, 3 F-34 4* 3 

4 -< £» 1 4 8 4 wJ « ^ 1 7 7 

** yjei'**. ;v*i ! t-s;*? DL^T^I 



J??? #STCHk 

sua* ?#i,SNR 

JHF . + 3 

ISZ LAST 
J^P KILL« 

LPA 3»OLRTN 

INTEN 

•J HP -,3 



ISET tHARCT£» AND INCREMENT 

iAND STORE I^TO BUFFER 

ITSST FOR ESC 

IYES 

INO, 1NCRSHENT AND KEEP GOlNS 



IBET RETURN 

|Rg«ENAiSlE XNTERSUPT 
LAND EXIT 

ISAVED RETURN 



A M3i .MAIN 
?\ 

Pi 

^4 
33 

PS 

*7 

#9 
I 4 

It 

i ,$ < ifli ? •••t-^di 

i4 - i «i i v a ? £? 

| 5 '1^19 .•4;"<S3^ 

i 5 * )A{$ K-6112 

| 7 ' l d i 4 >- rt / •/, v '.* 

1 a v t a i 5 v 1 ; 2 & 9 4 
i ■• U J S . ? , i € 7 
2* r«|4!7 »/.g4423 
81 -Id?' ! •' ft 4 v u 

23 ^1*22 wafiPM 

24 v< I a 2 3 t^ ? y ft f" p 

2 5 /-14?4 ^63^77 
26 ?14?5 HvM22 
2 7 PI 42 6 fc?44gi 
2 § ^ ! 4 2 7 ^ ^ (* 7> fr* ; & 
29 i- • i 4 3 ?. ? 6 3 ? 7 7 
3v« H431 ^14122 

31 ^1432 PP6P73 

32 «1433 a*»M22 

33 ^1434 ^24«33 

34 H1435 lfr"64u,4 

35 vU36 * It* 122 

36 s-1437 t*lfc4i>2 

37 r>i44"/' 6**24^1 

38 w 1 4 4 1 p. a ** fl tf pi 

39 m 1 4 4 2 ?• t 4 fl « P a 



CHNS C**NGF T £xT 

00 SEARCH, OELE^E UNO I*5ERT 

CALL1NS SEQUENCtI 
JSR CHNG 
(U*uSEP) 
gWPOR 

normal ** E * J R n 



CHN51 



CHRTNi 

CHNG0I 



ST4 
152 

10 k 

STA 

JS« 

8 

JHF 

LDA 

LDA 

SUB 

8TA 

JSR 

HAL 
IS? 

JSR 



HAL 

usz 

JSR 
CON 
LDA 

sus 

182 

182 

JHR 





3fOfiT* 

PCNRTN 
0,COHPT 
1 ,CHNS<* 
0, i 

• OELT 



COMPT 
INSRT 



COMpT 

•GTCHR 
PT 
1,C33 

«,1*SZR 
CONFT 
CHRTN 
•CHRTN 



JSAVE ^ETU^N 
UNO INCREMENT I? 

PGET CQ**A*D FOI^TgR 
JANO SAVE IT 
100 k SEARCH 

iERROR 



|G£T CHARACTER COUNT 

IANO SET UP FOR A DELETE 



lift 

INCREMENT COMMAND POINTER 
fAND 00 THE INSERT 



JINDEX RETURN 
fAND EXIT 






T f -;T0 T^g TEXT SUFFJ^ 
?Ag At^*" 1 INSERTS ?f£ 745 



A* 6 



i!R 8 






l fr-USED (EtfROR 


P 9 






f .\C»MAt RETURN 


1 t 


I 443 


-?!*• -* T48? .r a '*,?,, 5 


? -- 


I 44 A 


1«H?N 


*f % * S^Sl 5 ? 


t 4 "• 


" - m £.\ 


- - *. r s 1 


J-? 1 .3 


» •« 


I £ a a 


' ' * * 


• :r| C: mp- 


1 / • 


14 47 


^Mf ? %S!?TJ .*f* l s IK,pT\ 


1 i irt 


i *5v* 


• ? ' U! 4 


i.U'4 &!,UAST 


« -4 


i45i 


t !?>:- 


HOVZ» 65 f § 


24 * 


1*52 


1 € 1 4 r -^ 


INC &,« 


21 ? 


1453 


*4a*31 


STA a,XDA 


2 2 :•■ 


1454 


■■ ? 4 1 J; ? 


LPA IjCOMPT 


33 . 


1455 


t-3^124 


ICA 2»XM0Pg 


9 6 .. 


1456 


i^i/ rf 


MOV 2,2»82R 


25 v 


1457 


. S 4 | & 5 


LDA l.TEMC 


5M • ' 


I <<? • 


P^'f' 


MO^ZR l#i 


r; •• : 


.461 


r 4 4 * 3 2 


ST* 1,X0B 


88 wm 


I 46g 


<*14P>32 


OSZ XD8 


J>9 •' ! 


I J §3 


p 2 * p, 3 g 


104 t,XDB 


3* *< 


t 4fi4 


| ^f?4n^ 


&Ij* ft, I 


31 U 


Hfi5 


i?6?:ns 


M CVZR# 1,1, SNR 


32 ^«J 


1466 


W a tf 4 6 7 


J^P IN8R2 


33 *J 


1467 


£6*277 


INTOS 


3 4 e»l 


L 47^ 


12512& 


M0V2L Ifl 


?-) ;.-< 


.471 


•.3*134 


LDA 2, LAST 


36 w] 


k 472 


133W& 


ADD 1,2 


37 a J 


1473 


«3«134 


STA 2, LAST 


3i nj 


1474 


03*123 


LDA 2,CURPT 


3d im 


1475 


1«522>. 


MOVIR 2,3 


4 ft ti : 


,476 


^44464 


STA i,NINSR 


41 - 1 


,477 


133«*eP 


ADO 1,2 


42 -1 


*SM 


w5r«i53 


STA 2,T£MA 


43 ^ 


.5&1 


1 !M ! ' 3 


SUB 0,3, SNR 


4 4 :' * 


8? 2 


gi ft V. 4 Pi 5 


J^P ,*5 


4 5 ■-"■ 1 


5C»3 


*22*31 


LOA « f #XOA 


« « «r'. i 


5^4 


w42t*32 


STA # #XOB 


47 »J 


5^5 


17 5 41/4 


INC 3,3, 8ZR 


4^ * J 


BPS 


P « n 7 7 5 


JMP ,«3 


4Q C J 


5^7 


&*24fr33 


LC-A 1 # C33 



I3*V£ S£Ty3* 
IG£T LAST 



IFORM CLAST/2)*! 
I AND STORE INTO XR 
|S£T COHN^NO POINTER 



l?ORH AN ADDRESS 



|AC1«NUMBER OF F^EE NORDS 
rTEST MA6NITUE0E 

ILESS THAN 4 CHARACTER SPAt^ 
fDISAiLE INTERRUPT 
!AC1«2*N»NUMBER OF CHARACTERS 

UPDATE LAST IN CASE Qf RECURS 

!5ET CURRENT POINTER 
$ AC3sCCURPT3/2 
INlNSRuNUMBER Or CHARACTERS 
|T0 BE MOVED 

fEND OF INSERTION AREA 

IAC3«NUM8ER OF MOVES 

INONE 

IMOVE WORDS INTO UPPER MEHOR¥ 

IOPENING UP A HOLE 

ITEST FOR COMPLETION 

INO, DO ANOTHER 

ISET ESC CHARACTER 



a 06133 



3 2 
?3 

7 4 

«7 

fl d 

2 

I "j 

1 jj 

! *» 

15 

17 
1* 
1<? 

2'* 

21 
25> 

23 

24 

2 3 
2* 
27 
?.$ 
29 
3* 
31 
3? 
33 
34 
35 
36 
37 
3? 
39 

4$ 
41 

42 
43 
44 
45 
4* 
47 
48 
49 

5a 

Si 

52 
53 
54 

55 

5e 

57 



i 



M * 

511 
5 12 

Mr 

521 

522 



*1 
M 

*1 
M 

fH 
<*1 
'*J 
f<l 
*< 1 
*1 



52? 
524 
525 

527 

531 
?^2 

533 

534 



535 
53e» 
53? 
5 4v» 

541 
542 
543 

544 
545 
546 
547 



5 5? 
551 

**2 
553 

55 4 

555 
556 

*6i 
**2 



MAIN 

--3^/52 

| 4 34! 5 

a»AH4f7 

, f & % i 4 

* I p 1 2 3 



ir «66*7 4 

w * i>< 1 2 2 
1*6415 
fr« S» tM fr 7 
t* v* 6 1 1 4 

« <a V. 1 2 3 

* 1 rU 2 3 

£ 1 4 4 3 * 

p»077» 

$ M ^ 7 I 4 



! M4 122 

P9&J23 
4 ^ l 5 4 
ft '/» 6 1» 7 4 

«?^153 
V ^ fc 1 1 4 
* F « 1 5 4 
1 .4 6 4 1 5 
f. « f i 4 /• 3 
P 1 P 1 5 4 

S??P>771 



W 2 !•! 1 5 4 
^4^134 
«60 177 
W 3 4 4 t 6 
0*14*2 

i w 5 w 7 P 
# m 6 4 1 <* 

? <* 2 4 ia t 

p ft (A p> fs 

In i* P P t" ft 



LDa 2 # C177 
AMD 2,G,SNR 
JMP INSR0 
SUB* 0, 1 iSNR 
Jf-P lNSRi*i 
JSR fSTCHR? 
CU*PT 
ISZ CURPT 
JfcP INSR1+1 



I6ET ARG 
IMAKE 7 SITS 

fNO ARG 
I YES, 

PD0N«T INSERT ISC 



IOK, ALL DONE 



f*C*# 00 TNfe ACTUAL INSERTION 

IMOVE CHARACTERS f^OH THE CQHMAND BUFFER INTO THE 

I TEXT A Sir A 



INSR81 



JSR iGTCNI 

CONPT 

SUB* e^^iiSNR 

JHP IN3R1 

JSR PSTCHR 

CURPT 

ISZ CURPT 

DSZ NINSR 

JMP INSRfl 

jnP INSRT+1 



fGET A CHARACTER AND 
^INCREMENT POINTER 
ITEST IT FOR ESC 
fYES 



INO, STORE 
IXNTO TEXT 
FlNCREMENT 
fDECREMENT 
ISTILL ROOM 



IT 

AREA 
POINTER 
COUNTER 
LEFT 



|N0 ROOM, SNUFFLE AGAIN 



IALL TEXT FROM COMMAND BUFFER HAS SEEN 
^ABSORBED- HOVE REST OF TEXT DOWN 
INSR1! DSI CDMPT 

LDA ?», CURPT 

STA 8,TEMB 

JSP PGTCHI 

TtMA 

JSR PSTCHR 

TEHS 

SUB* 0,1, SNR 

J&P .+3 

ISZ TE«B 

JMP INSR1+3 



IYES 



lOECREMENT COMMAND POINTER 

IMAKE ANOTHER COPY OF THE 

fCURRENT POINTER 

fGET CHARACTER FROM UPPER 

IMEMQRY 

IAND STORE INTO THE 

JTEXT AREA 

ITEST FOR ESC 

INO, INCREMENT AND CONTINUE 



IALL 



DONE, 

LDA 



fPRXNT 
INSR2S 



INRTNI 
NfNSRl 



POATE LAST 

»»T£MB 
STA 65, LAST 
XNTEN 

LDA 3,INRTN 
JHP 2,3 
"BUFFER CAPACITY 
JSR PERROR 

EHMsa+ERMsa 

ISZ 1NRTN 
JMP ilNRTN 

i 



AND RETURN 



IRE-ENABLE INTERRUPT 



EXCEEDED DURINS INSERT" 
ISTRING PRINTER 



IERROR RETURN 
ISAVED RETURN 
ITEMPORARY STORAGE 



A i V. 3 4 
>? 

PI 5 



018 



.MAIM 



t < 
I ? 

i * 

1 ; 

1^ ■ 

Jr» . 

17 * 

I* - 

1 o ' • 

81 * 

22 * 

23 * 

£4 V 

2 5 v 

26 tf 

27 * 

29 

3 ! w 

32 * 

33 ^ 

3 5 •? 
3* .« 

37 * 

38 f 1 

4 1 fr 

^3 ^* 



56? 

58 5 

566 

?*/ 

571 
572 
573 
574 
?7*> 
57^ 
577 



60i> 
^w 1 
6P2 
6«3 
6P»4 
6*5 
«P6 
6*7 
M$ 
611 
612 
013 
ei4 

615 



a 2 4 fe ft 
J t' 4 3 p 
544? & 
21*fc£ 
w i P p 4 
•M4fr>l 
1 *-■ a ?. ?- 
p P 1 1 3 

<?• f> {<• # 
• r • A : $ 
1 >' 4 1 IS 

"!2415 



W2P4 15 
l^l*? 4 

W s» w 4 ? § 

w'. R J 
fci*2 4G*7 

v»iri22 

tflJr.fil 17 

^ 2 4 <* 2 

« c^ 7 7 3 
w ?j? p p ^ ps 

P £ 6* P 



N,0 SUBROUTINE TO SEARCH 

IF FOUND. RETURN, ELSE PUNCH 

DuT THE BUFFERCI* ^3 # *ANK AND SEARCH ASAIN 

IP gND-OF-FILE IS ENCOUNTERE0# FAIL 

CALLING SEGUENCEl 

JSP N 

FAIL 

FORMAL RETURN. P0Xn?£P? TO CHARACTER 

I**£OlATELY AFTER TH£ MATCH 



01 
NI 



Ml 



SUB v?,'/ 

STA P»NMODE 

S T 4 3 , rvi ft ? K 

L A 8,0,3 
*0V 0,i,SZR 
Jhp i r 3 

ISZ NHTN 
JS« •SERCH*t 

K 

JMP ,+3 

ISZ NRTN 

JMP PNRTN 



fSEARCH FAILED 

LOA «*,NMODE 

MOV B,0,SZ» 

JMP QHDE 

JS« iP0 

1 

JHP iNRTN 

^ 2 , I5Z CDMpT 

JMP Ml 
OMOEl JSP HYANKB 
1 
JHP iNRTN 

J^P N2 
NRTNi 91 



I SET «00£ 

ISAVg THE MODE 

fSAVE RETURN 
ITEST FOR NO ARS 

IERROR 

I1NCREHENT RETURN 
160 DO A SEARCH 

IFAILED 

fOK, NORMAL RETURN 



ITEST THE NODE 

10 MODE 

IDO P,Y 
|END-.OF*FILE 

IAOVANCE COMMAND POINTER 
IAND TRY AGAIN 
100 A Y 



IERROR 
fPROCEED 



ISAVEO RETURN 



NMODEl H 



?SAVED MODE 



a vie- 35 

§ t 
Pi 
pi 

5*4 
** 

ft 6 
*7 

! ! 
12 
13 

f h 
17 

2 f * 

21 
?< 

94 

25 

2? 

?* 

29 
3-.' 

31 

33 



M41N 



*?/ 

e5?3 

626 
fc2? 
63* 

631 

e>33 

634 
ft35 
636 
*37 

641 

643 



:' 5 4 4 2 A 

* \ ■'**!? 

i 1. ! i ? 

R 4 1? J i 6 

u 1 4 1 ? 2 

S". « fci 1 1* 5 

(/. ;?• f. P> K 

#63i'77 

« 1 « J p ? 

{4 j.i f* ^ f p 
t* :>! g 4 1. 5 
y 1 4 4 ^ 5 
to w v-7*7 
PI £4*2 

i^24t 1 

t* Pi ^ 5** t*< P 

»r- V P W fr, C* 



R ?>j*4tn th r j YANK 

CABLING seaut^cEi 

ARG 

FftIU»«END«OF-FlUE»PARITY SSROif 

wOPfcAL RETURN, CL)RPT«UMCHANGED 



Rf 



OR BUFFER FULL 



RRTNf 
NRl 



STA 
IDA 
•52 

M M V I 

JfVfR 

MOV 

ST 4 

OSI 
J S R 
9i 

H&LT 

IS2 

JSP 

y 

j hp 

osz 

J HP 

182 

JHP 

% 
B 



3,RRTn 
*» 3,3 

RRTn 

* 5»,P»*S2C 

4,3 

L 8#i 

0,NR 

CDHPT 



COMPT 
iYANKi 

iRRTN 
NR 

.-U 

RRTN 
• RRTN 



ISAVE PETURfc 
f GET ARS 

UNCfiEMENT fiETURN 
ITEST ARS 
I f A 1 L # < ^ 

I8 # MAKE * I 



IPUNCM ENTIRE BUFFER 



?QO YANK 

fFAXL 
ITES? COUNT 

fKEEP GOING 
FALL DONE, INCREMENT RETURN 
IAND ESIT 



A * ir 3 ft , h A I K.' 
04 

01 S 

4? 7 



£Mi ThE *AP£ 

CALLING SEQUENCE 

JSR £nQTP 

UNUSED 

EKRGR RETURN-PARITY SRfiQR OR SUFFER FU'.v 

NORMAL RETURN 



w 9 

I * 
?- 

17 
18 
IS 

21 
?? 

23 

•?4 

25 
87 

as* 



it- 

CI 

•J ft 

i. , 

55 
PS 
57 



• •5«7t-* 
••1 -.747 

••Pi S 5 4 

i M 6 4 w 4 

/ M17 

;•■ « - i/ 1 ■/ 

PB47 4 1 

P77777 

■>•. *£ ^t a 



EnOTPI 



e, a 2 i * i e> «r. 5 

f? ft 4 p v. ? 7 3 /• 



FK^T^I 



ENDT1I 



ST A 
IS? 
in A 

Li-4 

JnP 
J5» 

JNP 

JSR 

7777 

JhP 

J MP 



3, NR?N 

NRTN 

M#LAST 

i,8EG!N 

*, i,szr 

ENOT? 

•VASHfc 

R 
7 

ENDTi 
ENDT0 



IDA 0,YERR 

TSZ NRTN 
JMP fNRTN 



fSAVE RETURN 

IL'PDATE 1? 

fSEE IF ANYTHING ON THE »ASE 



|vgs, 00 R 

l«0, DO A YANK 

f£RROR, TEST IT 

ICALL R 

IWITH LARGE ARGUMENT 

IKEEP GOING??? 

ITEST THg y ERROR FLAG 

$D<? NO ERRORS 
IRETURN 



n 
*? 

•4 

w*j 

!•* 
11 

12 

! 3 
1 4 
1 5 
1* 
if 
Id 
19 
2-* 
21 
22 
23 
2* 
25 
?* 
27 

/ 
ot 

32 
33 
34 
35 
36 
37 
38 
39 
4* 
"41 
42 
4* 
44 
45 
46 
47 
48 
49 
5* 
51 
52 
53 
54 
"5 
5 
57 
58 
59 



WAIN 



v-l*6 5 

*'1567 

■M*7« 

fr 1, *> 7 i 
f >l 6 7 2 
i 1^73 
vU ^ 7 a 
v- 1 ft 7 5 
^•1^7* 

J. 1*77 

M7<*/ 
^17*1 

r. 17«2 

* 1 7 «» 3 

n 1 7 v- 4 
V-.17&& 
wi7*<? 



r, 1 7 p*- 7 
"171 * 
*' 1 7 1 1 

* 1 7 1 2 
"1713 

* 1 7 H 

* 1715 
«* 1 7 1 *? 
«'• 1 7 1 7 
fr-172* 



721 

722 

723 
724 

725 
726 
72? 
73P 

731 

732 
733 
734 
735 
73« 



" ** 4 M i 
•'' 2 « A 1 2 4 

f-314'/:i 
15113* 
" U«* 1 

1 5 1 r m B 

15252* 

*5& 197 

a fc e> *> 7 3 

K'Hfc2 

1^6415 

a- '/> t«. 4 1 6 
t«i 2 4 f 4 5 

1 «* P 4 i 5 
t-; '*« r 4 5 <fl 



K2v-1?5 

1 ^ l y) e 5 
^•■/*i4 54 

v. 4 ^ 1 5 5 
?-2HS>6 
i*4* 122 

e> i ^ 1 2 4 

t'34457 
P> * 1 4 9 2 



Plfr-122 
i*2tfl22 
11122* 
C24131 

1 4 6 4 Sf - tf 

K44153 

«M^153 
tf 3 1* 1 2 5 
132 4P» 

15112^ 
^5i5l55 
1*1232 

^1^155 
024126 



maCRO EXPANSION/DEFINITION 



CALLING SEQUENCE! 
JSff XNAC 
ARS 

NORMAL RETURN 

X*ACf STA 4#X»TNJ 

UOA a,K*QDE 

MOV r 4,t*jSZR 

J^P ^hAC4 
IDA 2,0,3 

Jf*P 1,3 

MOV 2 f 2,SNR 
SUSZL 2,2 
STA 2,AR6X 

JSR PGTCHS 
COHPT 

LDA 1 f CI 15 
SU8# 0,1, SNR 
J*P XMACi 
LDA i i Cif!4 
SUB* B,lfSNR 
JMP X^AC3 



fMACRO CALL 



LDA PI, 

MOV «, 

LDA pi, 

sta pi, 

LDA 55, 

STA 0, 

ISZ xm 

LDA 3, 

JNP 2, 



XDEF 

0,SNR 

AC4 

COMPT 

TEHC 

T£MD 

COMPT 

ODE 

XRTN 

3 



JMACRO DEFINITION 

XMAC1I ISI COMPT 

LDA Pi, COMPT 
M0V2R »,2 
LDA 1,EnD*1 

SU8 2, 1 
STA i,T£MA 
ISZ TEMA 
LOA 2,E0MEM 
SU8 1,2 
NOVZL 2,2 
STA 2,TEM0 
HOVZR* 0,C,8ZC 
ISZ TE«D 
LDA l,EOMEH 



ISAVE RETURN 

fCHECK FDR EXPANSION MODI 

|¥£S # . REQUEST ILLEGAL 
|N0. .PICKUP ARGUMENT 
fCHECK ITS SIGN 
|»VE ARGUMENT ■* ERROR 
ICMECK FOR ZERO ARGUMENT 
IYES,, MAKE IT ONE 
fSTORE IT AWAY 

fPICKUP NEXT CHARACTER 

fCNECK FOR »M» 

IYES ■> MACRO DEFINITION 
ICNECK FOR »0» 

IYES *> DELETE DEFINITION 



ICNECK IF MACRO DEFINED 

INOT DEFINED ■> ERROR 

ISAVE COMMAND POINTER 
IPICKUP MACRO POINTER 
I »COMPT» RESET FOR SCAN 
IINDICATE EXPANSION MODE 
IEXIT 



rSTEP PAST »M» 
fPICKUP COMMAND POINTER 
ICONVERT TO ADDRESS 
IPICKUP END ADDRESS OF COMMAND 
ICALCULATE LENGTH OF MACRO 
ISAVE AS COUNT 
JNEED ONE MORE 

CALCULATE POINTER FOR MACRO 



fSET BYTE SIT 



P2 to 
P3 (r. 

.* *» « 
P6 id 
a 7 * 

$n 

mo 

1 I • 

i ? »« 

M f 
td 

! ^ 

1*> 

17 *■ 

18 ^ 
i<J "•-. 

21 v 

23 * 

24 « 

25 ^ 
56 

27 f 
29 w 

3* 

31 •«• 

32 

33 

34 

35 

37 

3S 
39 

4M 

41 

42 

43 



as 

1737 

17*> 

174 1 

1742 

174."X 
1744 

3?4S 



746 

747 
7M 



75? 
7 53 
754 
75? 
756 

757 
7 6* 

761 

7^2 
7 63 
7ft4 

76? 
76ft 
767 
77^ 
771 
712 
77d 
774 
775 



MAIN 

^ 4 4 .- »3 2 
£2^131 

fc 4 fc ft 3 1 

9> R % 6. y § 



22^31 

•4»..-3? 

-♦-77* 



<•/• 2 * \ b 6 

12522a 

lSSflft* 
* 1 i> 1 2 5 

i^4Kt3i 

-^«/.?4iM 

i/*-M*437 

en- 122 

y It 1 4 1 3 

i-n>«Ci4f3 

p «** ft v 7 P 

9- \r, 7 if- ['. ft 

«2kH26 
tf4P'-lM 
i-*34 4r5 
1 ,* 2 * * * 
W4/12S 
?.4(»124 
^t' 14|5l 



INC 

STA 
IDA 

INC 
ST A 
SuB 

JHP 



1,1 

1,XD6 
§,END*i 

(?>,XDA 

0, 1 # SNR 



ISSTUP AUTO INDEX 



ISHIFT ^aC*0 RACK 

LDA 8s # PXOA 
STA P f iXDB 

J*P ,-3 

jreaojust t^n+t 

ADC k?I,0 
UOA l,T£MD 
«iOVZ» 1,1 

ADD 1,0 
ISZ XDEF 



XMAC21 



KNAC38 



XMAC4! 



STA «,EnD*1 
RGN 

ISZ CQMPT 

ISZ XRTN 
J«P XHAC4+2 

JS« fERROR 
EWMS7+ERMS7 
LDA <3,EOMEM 
STA i,END+l 
LDA 3,XRTN 
Slid »,SJ 
STA # XPEF 
STA 0,XMODE 
J*P 1,3 



FNO SHXFTINS REQUIRED 



ISTEP PAST «0? 

ISET FOR NORMAL RETURN 

PEXIT 



el 776 i*Mft(.v KRTNi 
.EOT 



fl»K39 ,MIN 



*1 

«g 
«3 

04 

«5 

«7 
3 9 

il 

12 

13 

J ^ 

15 

1« 

17 

1* 

19' 

2* 

21 

22 

23 

2* 

?s 

26 
27 

28 

29 

3-* 

31 

3? 

33 

34 

35 

36 

37 

38 

39 

A* 

&l 

42 

43 

44 

45 

46 

47 

4§ 

49 

3?» 

51 

5? 



*2 

fr"2 
V'2 

«2 



1777 
2 {" » n 

2 



j*7 



f. j> t j m 



*2M1 

c= a p 5 1 3 

^2?M 
£^1S 

p»2P17 
{* 2 <?• 7 f* 

s^2^2! 
(-2^22 
*2f;23 

*2fr?4 

a2k«25 

^2^26 
*2&27 



("24122 
c'3^124 

1 5 1 « * 4 

V 2 4|^? 
f* 3 {'•&•*» 3 

1 4 fe 4 f '• Sft 

122*32 
^ r * J ^ I 1 

t" w | 4 fr- vA 



w2t'l 16 
12fcf*2t? 

C'5M*4fc3 

t^^Jf 4 
12MP& 
1^4/47 3 
V 4 4 4 7 3 

t.5447 r '- 
^214 f/« Pi 

1 r M 1 1 2 

n<*14rl 
c« 2 4 1 k 3 
1 » 1 p» f/. » 

*24 12c 

^44153 

041*457 



ITAPF 3 



FTST^ TEST FOR BUFFER FULL 

CALLING SEQUENCE! 
JSR FTEST 
*"vOR*AL RETURN 
kkpoR RETURN.-BUFFER 
LAST.GE, (CC*PT«2W 



IS FULL, II, 
COCTAL) 



FTSTii 



LOA # LAST 




IDA l # COMPT 




Lf»A 2,XM00E 




MOV 2, 2, SIR 




LOA i f T£MC 




LDA 2 # C2B0 




SUH 2, i 




SU^Z* l,tt»SZC 




JNP 1,3 


ITEST FAILED 


JhP 0,3 


fOK, EXIT 



TP£ 

PNCH 



handle TYPEWRITER OUTPUT 
HANDLE PUNCH OUTPUT 



CALLING SEQUENCE! 

JSR CTP6 OR PNCH) 

ARG 

FAIL CARG<0) 

NORHAL RETURN 



TPEl 



PNCHI 



LDA 0,TYPE 


|GET SUiROUTINE ADDRESS 


SUBZL 1p1 


ISET ACia+1 


J^P .43 




LDA W,PUNCH 


IGET SUBR ADDRESS 


SUB 1,1 


ISET AC1«0 


STA ^,TPLAG 


ISAVE SUSROUTINE ADDRESS 


STA l,TFLAG*i 


ISAVE FLAG 


STA 3,TRTN 


ISAVE RETURN 


LDA a, 9, 3 


|GET ARG 


HQVL* 05>0fSZC 




JHP 1,3 


|<0, ERROR 


LDA 1,CURPT 


|GET CURRENT POINTER 


MOV 0,«,SNR 




LDA 1, BEGIN 


|ARG»0, START AT BEGIN 


STA 1,TEMA 


ISAVE OUTPUT POINTER 


STA 0,NTYPE 


ISAVE ARG 



a 0MP .WAIN 

m 

</-4 

■■v fc. 



o>7 

fc*J 

n 

12 
13 
f 4 

1 5 
\* 

I* 

19 

21 
5?? 

23 

24 

25 
2S 

27 

2* 

29 

31 
32 
33 
34 
35 
36 
37 
38 



i§2P3t 
^2»32 
i2fe33 
02fc3 4 

B2fc35 

«>» a if 3 e 

P2M37 
P2R4H 

P2ft42 
#2^.43 
8 2*44 

P» 2 E 4 5 

IJ12w4e» 

t.2t'.47 

V2»*5P» 

^2?«3i 

*2*52 



fr2fc!*3 

fc 2 ** 5 4 
n 2 (/* 6 ft 
n 2^56 
fc2«*37 

J«2fc«P 

^ a v 6 1 

v" 2 ( # « 2 
n?u,63 
w 2 f> 8 A 
0526*65 

k* a fc 6 6 
*2J«67 
% 2 P 7 

^2071 



ri ? 6 » 7 4 
'•">153 
024033 
1.16415 

0RK416 
024024 
1 tf 6 4 1 8 
a,*?432 

^241^27 

& -• r 4 3 5 
i •' * 4 1 5 

e»P>6 4 43 

Vi m 6 4 4 1 
P14436 

0Wf757 



t*24437 
12t>P"4 
fr. a fr'. 4 1 3 
t> « fi f? 7 3 
P&W122 
t*24M7 
1 «"■ h 4 1 4 
R p m 4 fc 3 

t* i a 1 2 2 

Vi V. 4 4 4 7 

r-63^77 

1*34420 
PC 14*2 



fMAIN OUTPUT uDQP 
TPElt J8R fGTCHI 
TEMA 

LDA i,C33 
SU8# 0»1#SNR 
JHP TPE3 
LOA i,CU 
SUS# 0ilfSNR 
JHP TPE4 
LOA 1,C15 
ADC* 0i I iSNR 
jwp TPE8 
SU8«i 8,1, 3NR 
JHP ,*3 
TPE2! JSR iTPLAG 
JHP TPE1 
JSR iTFLAG 
D8Z NTYPE 
J*P TPE1 



|ALL DONE 
TPE3I LDA 

NUV 



t»TFLAG+i 
1,1, SZP 

JhP .+13 

JSR iGTCHR 

COMPT 

LO& 1,C127 

SUB* 0, 1,S7R 

JMP ,*3 

I8Z CDMRT 

JNP ,+4 

JSR F 

HALT 

LDA 3,TRTN 

JMP 2,3 



iyes 



fSET A CHARACTER AND XNCRENEN' 

ITME POINTER 
IIS IT ISCf 

IYE8, ALL DONE 
tm, 18 IT A TAlt 

IYIS 

ITEST FOP FORW-FEED 

IYIS 

|NO, TEST FOP CP 

PYES 

IOUTPUT CHARACTER 

fAND GET THE NEXT 

IOUTPUT 

^DECREMENT COUNTER 

|AND DO THE NEXT 



ITEST FOR PUNCH 

IYES, TEST NEXT COMHAND 
ITEST FOR A W 



INOf PUNCH FORM FEED 



IGET RETURN 
IAND EXIT 



1* 

19 

?•- 

21 
92 
2 3 
2* 
25 
26 
27 

?H 
?9 

3«^ 
31 
32 
33 
34 
35 
36 
37 
3* 
39 
4fr*. 
41 
42 
43 
44 
45 
4* 



A MA\ .MAIN 

*i 

«2 

^3 »*2P72 v"*C64i7 

*4 fc2P»7J *244 17 

^5 P 2 f* 7 4 / 2 ^ ^ 5 2 

in ft & p z 7 5 1 2 5 P p 5 

a 7 C-. 2^-7^ i,' - 1 6 4 i 3 

a » *i 2 P 77 w ^ 7 3 2 

II 
12 

13 
< /, 

11 
! »S 

17 



' 2 1 « ^ 
: S? 1 -"> 1 

■21«? 
1 2 1 P» 3 

' 2 Ur5 4 
i2t*S 
' 2 I P 5 

'21*7 

21 1 a 

2111 

■2112 



v 2 -a a i 2 
12 5^*4 
^•■-^7 44 

.^4431 

»*3i«77 
-z.^',723 

t>, i> (/. f a i'* f* 

# '>} p. r u. ? 

I/; •> l" P 1/ \A 



13 

14 

15 
1« 
17 

2£* 
21 

22 
23 

2<* 

25 
26 
27 

3^ 
31 

32 
33 



'.•> 5 4 4 2 '/ 
f . 1 1- 4 i 7 

¥! 2 J': J 2 '/' 

f'4^153 

126 4C.fr: 

«"2H53 

r-34412 

H33777 

112^5 
p» ./ 2 4 f 7 

■/, »>i fj?7 $ 

f-'H=l53 

ct ^ e f » 2 7 

11241^5 
1254t- w 
1» i> 7 6 * 
r « £* i4 p £>■ 



IhAKOlE A TaS 



TP?4I 



LDA 
IDA 

MOV 
JSR 
JMP 



iTFLAG 
l» T FLAG*i 

I, 1,SNR 

#TFLA5 

TPEi 



IHANOIE A FORM-FEED 



TPESi 



NTYPES 

TRTht 

TFLAGI 



LDA 

MOV 

J HP 

JS» 

51 

HALT 

JMP TPEI 

P 
ffl 



t»TFLAG#l 
1, 1,SZ» 

TPE2 
F 



rTEST FOR punch 
fSET A iUlOUT 
|XF PUNCH, FOLLOW 
|WITH THE iUSOUT 
fCONTXNUE 



ITEST FOR PUNCH 
|NO, TYPE-WRITER 



ILINE COUNTER 
ISAVED RETURN 



^SUBROUTINE TO CALCULATE NUMBER OF 

fLINES . 

fRETURN WITH RESULT IN AC1 



I 

LNNfri! 



CALL+i-AODRESS OF STOPPING POINTER 



LNNli 



LNN2! 



STA 3,LNN2 
187 LNN2 
LPA a, BEGIN 
STA ^,T£MA 
SUR 1,1 
LDA ^pTEMA 
LDA 3,LNN2 
LDA 2,i-l,3 
$[)% ?«,2,SNR 
JwP PLNN2 
JSR •GTCHI 
TfcMA 

LOA 2, CIS 
SUB *,2 f SNR 
INC 1,1 
jr\P I.NN1 



fSAVE LINE NUMBER 



ICLEAR COUNT 



JDQNE, RETURN 
IGET A CHARACTER 

UNO TEST FOR CR 

IYES, INDEX LINE COUNT 

IANO PROCEED 



1 

B 3 

04 

p.* 



.MAIN 



Ik 

1 s 



J 7 
1 8 

1 y 

21 
2? 

2 3 
?4 

25 
96 
27 

?« 

2« 
3- 

31 
32 

3 3 
3 4 
3 5 

37 
3* 
39 
4;4 
41 
4? 
43 
44 
45 
«6 
47 



-2 
* 2 
« ? 
■'••• 2 
*<2 
r2 
*2 
"•? 

v? 

*^2 
f 2 



i-.9 
•/>2 

*»2 
^2 
«*2 
i<2 



*2 

v*2 

<^2 

*2 

s^2 

r-2 
r-2 

-2 
«2 
*2 



34 
35 
?*? 
37 

6 .A 

4 1 
42 

4 3 



67 

7« 

71 



i. ?14*V. 

I ' 1 I 1 7 

ir ,|4l. t 
■/ * A t 3 ■' 

r •• r> 4 v ft 
\ 2 b 1 2 '/> 
12M2t' 



4 4 •' -i ? 4 4 1 1 

45 i,344?2 

4 fi «/ y> 1 4 u 2 



4? 

51 

54 



55 t" 

5 6 1 
«7 1 

Be* i-i 

M *> 

*2 1 

ft 3 «o 

ft 4 * 

65 t 1 

6 6 v 



2 (/. i/. 2 3 

P ^ 4 4 £/• 5 

t:2^'*26 
** '-61 v ■ 4 
« ' 2 fr " 3 «*' 

y:"i'77^ 



245ft4 
-6 4 33 

4V4 10 

54 4 it* 

f>-. ft 1 W< 4 
1 4 4 {- 4 

" 2 4{-3 

!> t* « (? /. 
f/ ft f/> lr P» 
fc i* »/) P 



IF 

IF 
IF 



A R G ■ P> 

AR6*i 



FAIL 

PUNCH 
PUNCH 



FORM FEED 

ARC INCHES 



OF TAPE 



CALLING SEQUENCE 
JSR F 
arq 

FAILURE RETURN 
ncjp^aL RFTURM 



p. 



Fi*| 



I PUNCH 

Fl! 



LP A »»fe>»3 
MOVL* 0,&,SZC 
J^P 1,3 

MOVZL ®# 1 f SNR 

JWP Fi 

fcUVZL i#l 
ADHZL 1#& 

JbR PFEED 
LDA 3,FRTN 
JNP 2,3 



IVES 



IGET ARC 
ITEST FOR AR6«0 
IY£S» ERROR 
|8AV£ RETURN 
ITEST FOR ZERO 
Punch FORM-FEED 
INO, FORM t§#ARS 
tin AC8 



iPUNCH TAPE 
JGET RETURN 
IAND EXIT 



FEED 
ADDRESS 



FORM 
LDA 
JSR 
LDA 
JSR 
LDA 
Jf-'P 



FEED 

a,ClP» 

PFEEO 

«,C14 

•PUNCH 

Pt,C2<* 

Ft'. 



JPRECEED BY .8" OF TAPE 

IGET FEED 
IAND PUNCH IT 
IAND FOLLOW WITH 
F 1 .6" OF FEED 



IF >1000 



THE COUNT 
RETURN 



JACK CONTAINS NUMBER OF TAPE FEEDS TO SE PUNCHED 
PFEED8 LDA l,CNVTB*i 

SUBZ* w# 1 iSNC 

MOV l,a 

STA f NFEED 

STA 3,NFEEP*1 

SUB 0,0 

JSR PPUNCH 

DSZ NFEED 

JNP .-3 

J?-P iNFEED*! 

FRTNl 3 
NFEED8 * 



rCLEAR 



ISEE 
IYES 
fSAVE 
ISAVE 
AC0 
IAND PUNCH THE BLANK 
ITEST THE COUNT 
fNOT DONE 
FALL DONE, EXIT 



A 5»R43 .MAIN 

PI 

^? 

»3 fYANX KILL BUFFER AND READ INTO IT 

04 i 

»5 MPPND aPPEuq TEXT FRO* READER INTO BUFFER 

*7 ICALL1NG SEQUENCE! 

(*B I JSRCvoraPPnD) 

«& i ciG^osen) 

l y i I RETURN. IF COWHAND CANNOT BE DONE 

11 I (OR IF NO INPUT TAPE) 

t? I NORMAL xETURN 

13 I 

14 flKPU? FRC-m WFAOER STOPS kHEH FQSM-FEED IS 

15 lENCOUK«T£K£f) OR IF BUFFER BECOMES ^ULL IN WHICH 
1* ICASE A MESSAGE IS PRINTED 

17 

1« i'-2172 v'?*12«* YANK! LDA P,8EClN ilNPUT INTO BEGINNING 

19 c^2173 c''?.<?Ar-2 jwp B *g 

2'* 

21 -••?174 ^?i/|34 ARPNDi LOA *,LAST HNPUT INTO LAST 

22 I--2175 MH34 STA Pt,LAST ISET LAST 

23 -'217* fr'4ri23 STA a,CURPT I SET CURRENT POINTER 

24 ^2177 ?»4473 ST& 3,YRTn fSAVE SUBROUTINE RETURN 
PS M?g^» <?in472 IS2 YNTN FlNCRENENT RETURN 

26 *22C"1 lv*24n' SL'8 0,« 

27 v2?»»2 H4^i61 STA 0,YERR JCLEAR YANK ERROR FLAS 

28 «*22*»3 ^^6^71 JSR iFTEST fTEST FOR BUFFER FULL 

29 l'?2 5U ■/«t'4M JF>P .+4 J NO 

3-» V22/5 mwm?7p» JSR #£RROR IYES, PRINT "BUFFER 

31 5*22f»ft n^t-402 ER^S1*E«M51 US FULL CANNOT 00 A" 

32 tf22*7 fr*-?.?4^3 JmP PYRTN TERROR RETURN 

33 fNON, CALCULATE CURRENT LINE NUNiER 

34 #22 1& *« «• 6 i *r 2 JSR #LNN 

3 5 «/'22H PMf. 134 LAST 

3« ^2212 N44M STA 1 # LCNT 

37 ^2213 i»24^a SUB fl,fc 

38 ^22j«t ^4^-4ft2 STA «,LCNT4-3 fCLEAR ERROR FLAG 

39 *2?15 U'2 4v« A01 SUB Oi , e 

4a *221* P4i*45ft STA *,LCNT*l fCLEAR ERROR COUNT 

4 1 »-2217 %2W*bV LDA a # Cl34 

42 y-222* c4^4M STA w,LCNT*2 JSET WAX LINE SIZE 



A §M4 4 .HAJN 

«1 

*2 

P3 fMAIN SUBROUTINE LOOP TO GET A CHARACTER 

pi 4 IfROH THE READER* STORE IT I^TO THE TEXT 

f?.ff tBUFFER AK.0 TEST FOR TERMINATION, 

■/« |8AD PARITV CHARACTERS ARE PLaCED InTC THE 

*7 rBUFFh'R hs o, 

a 8 

r/vj *J?2?i ««6!P6 All JS» PWEAD lOIT A CHAR INTO ACi 

1.* *2222 ««^434 JHP A4 |N0 MORI CHARS 

11 <-*2223 *^24fr'.27 LDA i f CIS fTEST FOR FORM-FEED 

\7 9?94 1--^ ; 1? ADC* ^#i»SNR 

15 ,-2??* f" 435 J«P *3 IYES, TERMINATE AND EXIT 

J4 *-222* -.3^33 IDA 2 f C33 

56 v-2227 112415 8L«*» P,2,S*R ITEST FOR ESC 

if* ^223-* ^',45 3 JHP ,4-3 |YES ? TRgAT AS AN ERROR 

17 «223i i ps x &•- &» 4 MOV i,i,SZR ITEST FOR AN ERROR 

!« *22?2 tt''«»"-4fr-3 J^P t + 3 

19" "8233 ^1^441 IS2 LCNT+1 lYESr SET FLAG 

2« ^2234 «%v>v>S# LDA «,C134 fOET "O" 

21 .-223*» - MU JSR fSTCHR fSTORE THE CHARACTER 

77 • 223* *• "134 LAST 

23 ->2237 5»U*13« 1S7 LAST 

24 tfgpacr i=*^4ift SUP* »,1,8NR fTEST FOR CARRIAGE RETURN 

25 -^22 4 1 9'n k ,av^ JHP . + 3 

?fi ^22A2 -«1A433 OSZ LCNT + 2 ITEST FOR 8IG LINE 

27 f-2243 fr-fr, i>7 5* J^'P Al INO, GET THE NEXT 
2^ 



* &Y>4& .MAIN 

^2 »£wn«or-i.lNe, TEST FOR ERRORS within the line 

33 *-2244 */4433 j$» E^TS? 

05 

w § INO*, INCREMENT THE LINE COUNT AND T1ST FOR 

*7 fSUFFER PULL 

?8 w2845 i>?i^4^P tDA 8,LCNT*2 ITEST FOR AN 

^9 fr-224S l»'icr4 *CV tt,2,SZR fOvERFLOw 

1* *2247 *i*424 ISZ LCNT 

It v»5>??<?. f»7-6P7I J5R fFTEST 

1? »^5>2*> 1 •-•^•7.4 JNP Afc fOK, SET THE NEXT LINE 

13 *?252 tlvltl ISZ *E«R iset ERROR FLAG 

14 .2253 . /•?.,-?<? ,js^ fEPPOR fBUFFER IS FULL 
i$ -^2*4 ■ ■**<- — - «?-c— •>? 'PRINT MESSAGE 

16 * 2 2 5 5 n v (• 4 v: 4 j k- P , * 4 

17 v'225« '*2iM23 A41 IDA tf,CURPT fSEE IF ANYTHING 
1* 5«5>257 .'2*154 LD4 I, LAST fwAS READ 

19 ?2260 l*.f>4^5 SU8 0,1, SMR 

?« i-22M **1*41S ISZ LCNT + 3 ISET ERROR FLAG 

21 C2262 f*?i-^33 A3! LDA fr,C33 

2? **2263 i«.-hii4 JSP? #STCHR fTERMlNATE TNI SUFFER 

23 "»226fl ,iiH.134 LAST 

24 1-22P5 r.,4412 Js» EP*T8T fTEST FOR ERRORS 

25 r>2?«6 t-?!/4i* LDA ft,LCNT*3 ITEST THE ERROR FLAG 

26 c22f*7 ls.ikH'5 MOV « f 8 f SN!i 

27 vi227v* nit*«v2 ISZ ¥NTN JNO ERRORS, INCREMENT RETURN 
26 v-2271 fo-*?4M Jp«P iVSTN lEXIT 

2Q «"2272 v*v.?.\i& YRTNI P I SAVED RETURN 

3-? t'-2273 vuirp^o LCNTS % 

31 ^227 4 ■/■•ay p. c* a t» 

32^5?27&^^«>)Mp.£>i 

33 ^227 6 Pii^f'i fr-» fi 

34 

35 

35 



A 01 

§2 
P3 

•a 4 ■ 

$5 

P^ 

07 

r . •* 

| si • 

I 1 ■ 
\ 7 
1 3 
1 i 
15 ■ 
i *. 
1 7 
18 
19" 

?« 

at 

2? 
23 
24 
2"> 

?n 
27 

2* 

2^ 
3« 
31 
32 
3 4 
34 
35 
36 
3? 
38 

3 "9 
4P> 
41 

42 

4 3 
44 
43 
46 
47 



46 



2277 
23P£? 
23«l 
23»2 
231*3 
23«4 
235*5 
23o*« 
23i'7 
23 J a 
23 it 
8312 
2313 
2314 



23t K 

231* 

23 17 

■032* 

2321 

2322 
•2323 
•2324 
-2325 

>2327 
5 2 33/ 

; 233l 
'2332 
= 2333 
•233* 
2 3 35 
-2336 
•2337 



HA IN 



2341 

23^2 
8343 

2344 



ti5 
s/2 
1 ■ 



«>2 
12 



441 

t*77 

141: 
Bk:7 
673 
475 

54lr" 

^7t 
i«i J n 

24r 



fTEST F0» PARITY ERRORS 
ERTSTl STA 3,ERTS0 
LOA a,LCNT*i 

>^ov i,8#SNS 

JNP 0,3 
JSP » E R R G R 
£«MS5*ERMS5 

LPA 1 # LCNT 

1 # 1 

§D£C*L 

*CRLF^ 

LCNT*3 
YERR 
• I W T S 



INC 

JSR 
JS« 
I ft 7 

1SZ 

JMP 



ISAVE RETURN 



|N0# RETURN 

IYES, PRINT MESSAGE 



fPRINT LINE NUHBER 
ISET ERROR FLAG 



ERTS01 



OCML1 I 



V- 5 4 4 p 2 
- 3 1- ,' 6 1 
, hi If- 3 
ft3w.4Jei* 

1-32^-2^ 
i- 2 t»t* 4 2 

i^5i2 

« # c- 4 r 4 

1 4 6 4 k «?! 

1* 1 4 f « 
V ; > t' 7 7 4 

p. 4 4 1 3 4 

M^fclie 
f. 2 4 1 Jj 4 

fr«u<n&3 

v>.*J*7F5 



i*«PP«- p OCML2 8 



ITYPE CCAC1) IN DECIMAL 

OCML0I STA 3»DCHL2 



LOA 

STA 

LPA 

STA 

LPA 

LDA fl 

S U B L « 

JNP . 

SUB 
INC 
J^P 
STA 

ten 

LOA 
ISZ 

J*p 



2,M4 

2,TEMA 

2,CNVTB 

2 i X U A 

2,#*UA 

9i,C60 

2,1,SZC 
.♦4 
2,1 

1»TEHB 

PTYPE 

1 f TE^B 

TEMA 

OCNL1 

#DCML2 



ICONVERSIDN TABLE 



234ft c^?34fl CNVTBl 



i? £ r* 1 2 

M17&? 

!■-. p 1 4 4 
:4t'fr. 12 



I nU « 1 v 



IPO 9 

IP 
1 



ISAVE RETURN 

|GET COUNTER 

• AND SAVE IT 

|GET POINTER TO CONVERSION 

I TABLE 

IGET POWER OF 18 

IGET M 0» 

IIS NUH8ER ,GE, POWER OF l&t 

!NO 

IYES, SUBTRACT 

IAND INCREMENT DIGIT 

IAND PROCEED 

ISAVE PARTIAL DIGIT 

IAND TYPE THE DIGIT 

[GET DIGIT BACK 

IAND TEST THE COUNT 

|DO ANOTHER 

IALL DONE 

ISAVED RETURN 



1/ ,RDX * 



«I 
P2 
*3 

S54 
9»5 
P»6 
«7 

?8 

f>9 
lv 

1 1 

12 *" 
15 v 

14 ;/ 

15 ' 
ifi - 
17 

18 !•• 
15' i 1 

21 :- 

22 .- 

2 A - 

24 
25 
26 
5?7 
28 
29 
3* 
31 
32 



47 .MAIN. 



?3ia5 
23** 

2351 

?3*»2 
23«*3 
23*4 
?3?!> 

235 6 
2357 
23*,- 
2361 
23*2 
23*3 
23** 
23*fe 
23«ft 
2367 



r.237v* 



»-> .*> 4 £ 2 

\ 4 ¥• d i- 2 

i,-.*.**-7.» 

i* « l"i i; t- ft 

1 *'•*•• r. 

/"6ii77 
i'4f'!*>3 

t. • ■* 6 1.* f? 4 
•:-2i- 153 
f • 3*41 tf 
i<?4r'4!? 

122-^ t) 
► 'Hi 3 

1 ^ I'. 4 r i^l 

i-v'l Ay I 
i-^M".2 

1/ ^i 1/ (,'"i fl 



INITIALIZING SUBROUTINE 

CALLING SEOUfNCtl 
JSft PINIT 

Pn^T&R TO MESSAGE 
RETURN, if €RRC» 
RETl-Rn IF C2) 
RtTuRN IP CI) 



3 INIT&I 



INQrt, 



STA 
LDA 

ST 4 

00 AN 

Sub 

JSP? 
JSR 

ST A 



3, IkT»T 

^,«#3 

# F. 8 &" D ft 



INTRTI 



INPUT 
w » i 

PKEYRD 
# T£MA 
JSR itRLFi 
L U A 3 , T E M A 
LDA 3,INTRT 
LUA i,ces» 

AHC i,«,SNR 

J^P 3,3 

NEG 0,a 

COM h,»,8Z* 

J^P Ii3 

J^P 2,3 



iSAVE RETURN 
IGET ARG 

ICAlL the strins pointer 



UNITIALIZE KEYBOARD 

ISAVE CHARACTER 
ITYPE CR,LF 
»GET CHARACTER 
fSET RETURN 
IGET AN A8CII 8 

M ONE 



IERRQR 
IA TWO 
ISAVED RETURN 



A 0P 

»2 
*3 

»4 
^5 

9-fi 

97 
«8 
a 9 
\* 

i 1 
12 

13 

14 

15 

16 
17 

1H 
1« 

2* 

2! 
2? 
23 
?4 
2^ 
26 
?7 
2« 
99 
3-* 
31 
32 
33 
34 
35 
35 
37 
3B 



48 



MAIN 



2371 
^2372 
■2373 
'2374 

237b 

237» 
2377 

■ 8 4 f * 1 

2 4? 2 



2 4 K 3 
2 4?. 4 
2«r*ft 

2 -8^6 
?4p>7 
2 £ \ * 
2411 

241? 

24 13 

2^14 

2416 



1^5221 
125gt ^ 
126112 
1 4 7 f • k- 1? 
1 2 5 « *■ 4 
fr-i^.774 
I5l3v.2 

1 4 3^4^ 



132*2'/ 
1*5221 

1 2 ft ? t- £ 
1.2&112 

147C'!-f' 

125^-4 

i-* v t* • 7 7 4 
^ 2 4 »* 5 2 
1234^2 
1 vi 2 4 v. tf» 
u. a 1 4 * {*» 



f GNPRi 

F 

GNPRil 



generate even parity of 
the 7 sit character in ac-2 
ac1»ac2 are lost 



SUBZR 2,2 
MOVZP? 0,1,SKP 
HOVK 1,1 
hOVt« 1,1, SZC 
ApO 2,1 
«OV 1, 1,3Z» 
JttP »-4 
*0V5 2,2, SZC 
a on 2#8 

jMp 0,3 



TSPR^ TEST PARITY OF ACi 



I5ET 1 



|PUT INTO PROPER POSITION 
ilT WAS ODD, MAKE EVEN 
JSETURN 



CALLING SEOUKNCEl 
JSR TSPT0 

NORMAL I AC0«7 BIT CHARACTER 
CACP IS CLEARED IF PARITY IS 0003 



AC1,AC2 ARE LOST 

TSPR^I SU8ZR 2,2 

^OVZR »,i,SKP 
-*OVR 1,1 
MOVL* 1#1,SZC 
AOO 2,1 
MUV 1,1,SZR 
JKP ,-4 
LDA 1,C177 
AND 1,0, SZC 
Slift m , « 
J^P 9,3 



fQEl CONSTANT 



I IT WAS ODD, 
^RETURN 



CLEAR IT 



k tfH 4 9 .MAIN 

*2 

7. 3 }PjM * L- *« C * A ! / 

**> | „'$-* PI :. 

r* 7 I {■? F T U R N 

aq \'?&\*- ^4?t- s»u\*| STi 3,P\RT- jSAtfE RETURN 

j> ,2-417 ^iifi Ui !> s %?^ |G£? PUNCH PARITY MODE 

1! *?.A2 123r = \* ^' ',% 5 ^ !?£«? NODE 

12 >•'?«?! >•-*.. 72 -!S» •S*eA3 JGE*ERATE 

1,1 -?i9? >«!.*■■ _'. a •,-$***" fT«.$T wo® TELETYPE 

15 • ?*?4 ■• *»«- >p Tys-r? ffCSi USE TTO 

1<? v-.24?;> w**?77 l^-i>$ ;CXSASL£ INTERRUPT 

17 "2426 •.*2«177 „u* i,P\CN?*6 US PUNCH ACTIVE! 

1* t"?427 12b*l>4 i£jV J,i,SZP 

JQV-243-* tfli-'f.4»A5 JNP e *5 IY£S 

?•* (-243J r«lli3 CQAS »*,PTP IHQ, ACTIVATE PUNCH 

21 Jj-2432 v It 177 l$Z RKC*T*<5 I SET PUNCH RUN 

22 #*2433 ^>*'4v7 J*P »l»*tf janD EXIT 
23 

?4 IPUNCH IS ACTIVE, TRY TC PLACE CHARACTER 

2? fl^TH THE SUFFER 

26 i>?434 *«m77 InTEn lENAiLE INTERRUPT 

97 t-.?43S »» ■.•»*.'* 7 5 JSH flNBPP 

g* u.p^36 •■•.•r-17 1 PNCNT IPOINTER TO DEVICE-DATA-BLOCK 

29 '-2^37 k'H'77? JNP .-3 fBUFFER FULLp TRY AGAIN 

3-1 V 244'* ^*H-4fc,2 J^P PlINM fNOT FULL 

31 -2441 i.- 1*1 77 ISZ PNCNT + 6 IRESET ACTIVE 

32 i'2442 v;*(*l77 PU*PI INTEN lENABLE INTERRUPT 

33 ^2443 (/i>24'"| J*P #piv«TN lEXIT 

34 v<?444 M «-». pr pi j.-- fif. pNRfNl e ISAVED RETURN 

3*> 

36 FPU^ PUNCH AC0 

37 f PROCESS CARRIAGE RETURNS 

38 i«2a4^ f-544!l PUNI STA 3,PUN2 ISAVE RETURN 

39 .^2446 c2*i*27 LDA 1,C15 iTEST FOR CARRIAGE RETURN 
&* f-2447 l^M-5 SU8 &,1,SnR 

4 1 r?45 f <5 KPi^4i'3 JNP ,#-3 

42 v'2451 CV1474? JSR PUNI 

43 02452 {.'f'24|.'4 JNP #PIJN2 I EXIT 

44 lr24S3 1^*4743 JSR PUNI 

45 ^2454 C.2^r25 LDA 0,C12 IYES, FOLLOW WITH LINE-FEED 
45 P2455 «?^i^774 JHP ,«4 

47 ^2456 p-tfpeii'P PUN2I P 



a fo 5 W a H A I N 



i2 








03 




PTYPf 


TYPE CHARACTER 


$4 




I 


AmO PftXNT ALL 


#5 


••■2457 


t"2feP27 CRLFl 


lOA -S.C15 


•a 7 


fc246?i 


/; 5 4 454 TYPl 


ST* 3 # f¥RTN 


«8 


v 2 4 6 | 


p 4 % 4 5 4 


STA ?.,TYRTN + I 


- 


•--24*2 


•• 2 4 2 ■■* 7 


LOA 1,T0CNT*7 


1 ^ 


* 2^63 


125*1*5 


•■HiV 1,1, SNR 


? t 


: 2*** 


- > '* & * 7 


JMP ,#7 


« 9 


• ?46^ 


v. ? A g fr 6 


L»-4 1 i TGCM>* 


1 J 


2 4fi* 


125P" ^ 


w ;-v i.i,s7B 


} 4 


>4«? 


-w/77* 


JMP ..2 


15 


vi ? 4 7 ^ 


p 4 42i" 7 


5 T 6 i,TCC^T*7 


1 6 


K247I 


IM??* 


H V 1 P i « 


17 


■ ? « 7 ? 


**3?7 7 


H6tT 


1 8 


* 2 4 7 3 


fr • 2 4 ? 3 2 


LOA 1,C177 


19 


-12474 


1234>* 


AK-0 i,« 


9.* 


fr»2 47 5 


v24^33 


UO A 1,C33 


21 


* 2 4 7 6 


l"64 r 9 


sue «j,i,snr 


22 


^2477 


^. 2 fc P 1 3 6 


LOA B f C44 


23 


a 2 & P r 


»/• 2 4 tf 2 7 


LDA 1,C15 


24 


v?5u«l 


1 * h 4 1 5 


SU6e fl.l, SNR 


25 


fc-'25?2 


?■* ••*• tf 4 3 5 


JMP TPi 


26 


««25«3 


t-24^2 4 


IDA 1 f CI i 


87 


t-25^4 


I^ft4i5 


SUftfe «?,1»SNR 


?« 


ti25«5 


v* 5i ut 4 37 


J*P TPi 


39 








3 -A 


l- 2 5 fc b 


ir- 2*43? 


LDA l,T6L 


31 


t'2S&7 


»'• 4 4*22 


STA %,tvC 


32 


fr?2Mfc 


M?fri"?2 


LDA i,iXUC 


33 


f-8511 


?-32^22 


LDA 2,*XUC 


34 


^2512 


125**5 


MOV 1,1, SnR 


3 5 


,••2513 


fr- «* ft 4 1 2 


j M p TYP&3-1 


36 


f • 2 5 i a 


J22513 


SUBL» 1,0, SNC 


37 


•32515 


112512 


SUBL* 0i2#SZC 


3« 


r25l6 


k.wF-772 


J H P e - 6 


39 


fr* 2517 


W.2PP51 


LDA ^,C136 


4* 


*252w 


1 P 1 2 1 


ISZ CHCNT 


"41 


t-252i 


^^4454 


JSR TYPE^ 


42 


•£2522 


<?2*413 


LDA «,TYPTN4-1 


43 


-2523 


y 2 4 t*. 4 4 


LDA 1,C10»4 


44 


fr-?&5>4 


I23i*t-tf 


A 1,8 


ds 


r-252 5 


* 1 * I 2 1 


IS7 CHCNT 


46 


t^2526 


KM£447 TYPE3I 


JSR TYPE? 


47 


*2527 


t* 2 4 4 t-^6 


LDA 1,TYRTN*1 


4§ 


v- 2 5 3 w 


P2P/27 


LOA P,C15 


49 


««2531 


122ns 


ADC# 1|0#5NR 


5* 


«2532 


r ft (^727 


jHp TYP*1 


51 


^2533 


C" i* 2 4 v \ 


J MP fTYPTN 


52 


^2534 


\r,*n*p\,.'v. TYRTN1 


V, 


53 


^2535 


is '* f> C* {? $ 


t?« 


54 


^253fr 


f4^p,75» TBLI 


TABL-t 



IN AC0 
INVISIBLE CHASACTE^S 



IYES 



f?¥PE CR.L^ 

|Sa¥€ R£TUSN 

|8AV£ CHARACTER 

|S£T TT* HOPE 

ITEST FOR PUNCHING 

|NO, OK 

|Y2S f rf^IT UNTIL DONE 



|S£T N?^ ^CDE 
IC^£AR CURRY 
pTURN PUNCH OFF 

|wak£ 7 BIT CHARACTER 

ITEST ACI FOR CSC 

IYES, MAKE A M S H 

ITEST FOR CARRIAGE RETURN 

INOi TEST FOR A TAB 

IYES 

INOW, LOOK FOR INVISIBLES 

I6ET LOWER LIMIT 

IGET UPPER LIMIT 

ITEST FOR END 

IYES 

INO, TEST FOR CHAR.5E, LOWER 

IYES, TEST FOR CMAR S LE, UPPER 

INO, TEST NEXT PAIR 

IGET a 

fAND OUTPUT IT 
IGET CHARACTER 



IINDEX COUNT 
IOUTPUT CHARACTER 

ITEST FOR FORMFEED 

IYES 

f EXIT 
ISAVED RETURN 

ISAVED CHARACTER 
IPOINTER TO TRANSLATION TASLE 



A SH'-Sl .MAIN 
f 

■/ 4 <• ? 5 3 7 -f A ^ £ 3 5 * e ? j _• < s * * e c ^ 

•'»5 /?54> •*?!-•-*??» w t-^ ?,Ci2 l r Q m *2« *XTf- A ^IN'S^ECO 

»6 /P541 i?f4tft* SUB !,i 

* 7 <•■ ? 5 4 s? ■'• 4 4 1 ? j ^is :, c h c *• r 

PB -P543 *w7fr3 >a "'-s.3 M^C TVS£ CHASTE* 

il 2^44 -;£«*? tpi? i_ i i ■*>??- ?t?s t ff 0«? SIMULATION 

1 2 - ? 5 * * ! 5 1 ? " <s - 1 <*»!.* 2 5 

14 . 2f!<? fli?« Jf.* ~'* *~.< |Cj^ * 5I*\.i,.A T E f *? 

I* .-?**.- , ?>-r*>? U D* , ^;,r? lfJ-.i.C* *!▼* a »uscu* 

i^ -2^51 - >*-777 J^e T ->*2 

!? 

18 1^2552 fr.2(M2l IDA /,C 5 -C'*» T IGET COUNT 

19 ^2?53 f'240?3 LI" A ! , C I ?» 

2^ v-2554 1J2422 5u*7_ |,^»S2C 

J?i »*PSf»t» S"-n 777 JrP ,-i fSSOUCE TO MODULO 8 

22 v255* /.at*12i SI k «? # f>C^T 

?3 ">2fc?7 *2J-fr"34 IDA w,C4fi? IGET A SPACE 

2 4 ^25ftc* v^ ?-44 1 5 JS« TYPJ^i 

2*5 -2561 f>«H*.12I ISZ CwCNT ITES? COUNT 

26 *25«2 i^.f'775 Jf.P .-3 iCONTJNUE 

27 t'2563 fr--27M J^P #TY«TN fALL DONS, EXIT 
28 

29 

3 J 

31 ,EOT 



* W D ? » M A I K- 



?1 
tf2 

•4 4 
•?5 



* ^ 



t *-- 
I 7 

1A 

l« 

2" 
21 
?2 
23 

?4 
25 
2« 
27 
2« 
29 
3 • *> 
,* '.. 
3 2 
33 
34 

3*s 

%7 

3 9 

4 4 
41 



? t f ~ 4 

? *, *, S 

2 5*7 

2 5 7 1- 
• 2 f> ? 1 

2 5? 7 2 

2574 

2575 
- 2 5 7 6 
■2577 

2^*2 
2er«4 



2 * f .* 5 
2 fi Ci 6 
■2tfv<7 
•2fii^ 
! 2ft|l 
■?M2 
2frl3 
2^14 
■2615 



» ^ <j 7 7 

12 5-n- * 

• -■ * rf 
•>- 2 4 2 i- P 
12b*- 4 4 

• If 2v 7 
i.^3^77 



f «f /277 
f 2 ^ 2 (- 6 

i/i '« w 4 1- 5 
/■"i.4».7 



*vl77 
■-' 4 5;.*? 

•" t • 2 * i* 
-.-.l.7 75 

'^4t2 

1 n 2 u 6 

«f;177 



TYPE-.* t >p* ilf-C2l 

CALLING Sfci-Ut^Cf-l 

JS» TYPEtt CCHAR IN ACfe) 

sj-TlPK- CHARACTER PLACED I'-i T D BUFFEf? 

fif:i,AC2 AtfE LOST 



TYP62I 



LP A 

l: * 

^ C v 

Jf'*p 
l;. a 

MOVO 

JflR 

ISZ 

HALT 



3 , P f<- P T n 
t , 1,5Z» 

i , TOCM + 6 

l# i#SZR 
.-2 

TC CnT*7 



1"»S~ *0* fvsr^s MODS 



f NO 

|Y£$> WAIT 

ITO FINISH 



FC-5 JO 



442* TvPE^l ST^ 3 # T0RTN 



T>TDS 

LDA 1,T0CNT*6 
f*DV l,l f SZR 
J^P 8 +5 
00*5 P'iTTO 
ISZ TDCNT+6 
Jf-P TYPE! 



ISE1 THE new NODE 
IH4LT TO TURN ON PUNCH 

I SAVE RETURN 
IDISABLE INTERRUPT 
fTEST FOP TTO ACTIVE 



I IT IS ACTIVE 
JNQ, OUTPUT THE 

IAND SET ACTIVE 
IANO EXIT 



CHARACTER 



IOK, THE DEVICE IS ACTIVE, PLACE CHARACTER INTO THE BUFFER 



TYPEtl 



iNTfcM 
JSP INBUF 
TOCnT 

J HP ,-3 
j*p TYPE1 

ISZ T0CNT*6 

InTEn 

JhP iTORT^ 



IENA8LE 



IPOINTER TO DEVICE DATA BLOCK 

fNOT FULL 
JKESET ACTIVE 

INTERRUPT 
fAND RETURN 



v n ir . i* h if' T R T m I w 



a P» * 5 3 t M A I N 

PI 

P Z 
P3 

•** ItN^'^ K£*g :- 1^*^p-J-t & *:zp z*c STATE 

Pi 

-. v . ?*r*^ ^*-^-i7 -Ip-^j '-,5: - y ?~- ?REAO iHO Cllk^ 

i ;i / 7 * 1 7 , 3 ^ .- * ? 5 r ^ : ; ■ *- * 

It --?f2 - r?^* i- • *,*,,: ? i-£5» t 2 « MLLS 

; ; fc?$21 r-.-4'ijff ;-- * ; * - . :ijsCR£ NULLS 

1." - 2^?r - -V 2? ' „•.;'..- * i> 

\< ?*?? *%: 4 v- .- ', _, <::: ,~ I'i£3 e ^C^ ^EADE© 

15 2^5 4 • -4J^ J- ~' r . * t? |¥£S 

1ft ^2625 *24.*fcfc Lt'A 1,M3 '\C, *EvB3Af?D 

I? v»*5>* :*-?/• 5 *>••: 3 # :»o x < i*est fo^ *c 

I a v2*27 f-21-7 J*- 5 #«?E^ET IVES, 00 A «ES€? 

I9\"i?&3^ /?44^? Ll I ',*24 I TEST FOR aT 

2* ^?fr31 1*7/".- 5 ADD 3*i,5*.-S 

2! -2^32 ."2U* J?*- 9 »*ESET*1 f¥£S 

22 i 2^3,5 *'2«*52 t ? ^ \,C!.?7 ITE3T FOR 175,176 

23 '-2634 1 <S 6 P ^ ■> ADCtff 3,i,SN3 

94 i ?«35 r?rP*33 LP* P>»t33 I YES, SET TO 180(333 

25 t-?*^ ^3v?|7 „DA 2,TJC\T + 7 fTEST FOR ECHO 

26 v,p^37 lSlfrir* f^OV 2 f 2 f SZ^ 

27 t.2*4* i/„w.543 J.*P H2S1N fKEYBOARD-NO ECHO 
?ft <?*41 *m"<>4*4 JHP T1NT3 |K£Y9QARD-D0NJ'T TEST PARITY 
2^ <• ?M2 r ?*l 37 T1NT21 IDA 1,RD°AP 

3^ , 2f»43 12£>p ir 5 *0V l,l,5r*R ITEST FOR READER PARITY 

31 .^2644 r.i'tiis JSR #T3»A<= fYES* TEST PARITY 

32 h2G45 ?.24ff>2 TINT3I IDA 1,C177 

.33 52646 I234*i/ AND 1,0 IMAKE 7 BITS 

34 *2647 v3fr«&25 lb k 2,C12 ITEST FOR LINg-FEED 

35 f-- ? 6 "5 •- 1124---5 Sbft ?,? f SN'R 

36 52651 f 54^ JHP TINT! |YE5, IGNORE LINEFEEDS 
37 

38 

39 ^2^52 51-4437 JS^ 1NBUF fPLACE CHAR IN BUFFER 

4-4 5265a vW2\<* T2CNT fANO PLACE INTO BUFFER 

41 *2*54 1*63^77 HALT fBUFFER FULL-ERROR 

42 v«265? *t*fc4t? J^ tt^', |nOT FULL* CLEAR ACTIVE 

43 52656 caf>5?5 J^P DIS:> iFULLi DISMIS INTERRUPT 
44 

46 
47 

48 ICLEAR ACTIVE 

49 ^2d57 iv-24irft> TINT! I Su? ?»5 

5^ t 4 2685 545216 STA »»TlC^T+6 fCLEAR ACTIVE FLAS 

51 ^2661 6^5522 J.**P D I S I Nj fDlS^ISS THE INTERRUPT 

52 t.J**2 ^77754 M24| »24 
53 

54 



a a ¥ 5 4 . M A I fc 






i^S? rpy ST* ? I 



I >>, 
1 I 

♦. 7 
'f ,5 
1 « 
IS 
J * 
17 

t 8 

19 

21 
22 
23 

24 

25 

27 
?8 
2 r ^ 
3-> 



»*26*3 i #( Ht-6i? R01NT1 

** ? 6 <5 4 i c- ) P t ? 

fr; 2 6 £ 5 i" 2 V i" ft 4 

1/ 2 f- ft *• .- ? 4 1 5 9 

■7**7 * - ! ^ 7 

,--• p 6 7 v" 1 * 2 f <* v" « 

• 2 r* 7 1 • ► H ? 

if.?$7 3 /-^v 157 

t'?674 151^-4 

?''7b 123<H | 

V ?. ft 7 « fr • » f t I 5 

i«2677 ?3i**25 

* 2 7 fro 1 1 ^ 4 1- S5 

t-27c*i wrUnS 

*-27*Q y?.AA\, 7 

«??7?3 .^-■i'lea 

«<»?7c4 i*-ft3 ; *77 

f>27»5 t'''.t ^l % i 

t-^7t>e /••'••* ^75 



MOV 

!,; % 
LOA 

ADC 

N 1 o s 
Lti 
LI * 

AND 

JSP 

LDA 

SUB 

JP.P 

JS» 

»DO 

HALT 

Jf-P 

JK-P 



S5 f C37? 
i , a C C * T 

i*Cl7? 
? ? * op a ft 

2 # Cl2 
0,2,SNR 

XN8UP 
T 

nisiN 



I'^£iD AND CLEAR 
fT£S r for ^JULL 

?f ; £T CCu^T 

?S££ I p *I H ? T - *E?T4S T ?f? 

fSft R£iOE^ s>A*XTY FLAT, 

IDON'T TEST IT 
IT£ST PARITY 
?IShORE LIN£«F£gO 

fAND RUiOUT 

ISO FETCH ANOTHER 

♦NEITHER, STORE INTO BUFFER 

IMPOSSIBLE 
lOISHIS INTERRUPT 



«'d7*7 
•-•27r< 



5 \2 RDMTWS 

473 



MOS PTR 

J MP 01 SIN 



a 8^S5 , « A 1 N 



P3 

PS 
A'' 

? a 

•ay 



* ? 



1 4 


? .- ; ; 


fr> 6 i". 2 7 7 


' «% 


27 U 


K 5 4 A 3 6 


* ^ 


- 2 7 1 3 


&!fc-iS36 


\? 


,-27 14 


•j;*- ; 


: 4 


-'27!* 


,»25p>*p 


19 


- 2?i^ 


ir'3&fe*v 5 


?..* 


^7 J 7 


| *» ? #s 4 | H 


21 


'.'27? • 


i- -2^3 > 


22 


k.-272i 


1254: .. 


23 


•-2722 


p 4 ? f- r i.» 


2^ 


«?2723 


!3ft4tP 


2* 


v-2724 


if 1 M 2 4 


2« 


?'272> 


p 5 5 ^ r « 


27 


^'2726 


?li?*22 


28 


*2727 


ni^2 


29 


*-273* 


k*35fn*2 


3 51 


^273 1 


e2&ev3 


31 


t-'2732 


l$64i 4 


32 


f<2733 


c V- p 4 r 3 


33 


fc"273ia 


v'.3ft^w ^ 


3 4 


*2735 


fr»5{j^2 


35 


F?73« 


17122^ 


36 


?2?37 


r 3 5 e» p- p 


37 


#2747 


t?24t^3 


38 


* 2 7 4 t 


l^-ie^P 


39 


^274? 


17S3* c 


4« 


v 1 2 7 4 3 


1374v.|? 


41 


^2744 


1173f. 1 


42 


1*27*5 


11 7 P P P 


43 


t* 2 7 ^ 6 


»? 5 5 p fr. t « 


44 


*-2747 


a •* 2 A (< 1 


45 


«275c? 


H' f (5 k - vi 






f t '"_.*-" .. - * '** r " 

I 

I z : ^ ,, 7 £ c. -r - ; " * I | 

!, *,-« ., ? r 

♦ •. , « - - -* 

J ■ > < , . , 

: -? / *. ► '- * r 

', '"' ^ \ , -% >; 
Li* 3 , i , £ 
$;-** ! 
J * 3 ** 1 
ji ^ * . *■ 

S T 4 i!? f 2 

sui :,3,$*» 

ISZ In3»7 

STA -3,8,2 

IS2 1\wpt 

X$Z 2 ? 2 

S. [ A 3,2*2 

.;■•* i,3,2 

SUB 3 # I:SI^ 

LOA 3,4,2 
ST* 3,2 f 2 

wt'^/Z*> 3,2 
LD^ 3,0 f 2 
LOA !»^37? 
HOV # 0,SZC 
NOVS 3,3 
AK ; D 1,3,SZC 
ADOS ^i3,SKP 
ADO t«,3 
STA 3 # c,2 
J^e #XNB»T 

i 



x\e*Ti 



'- » ,' * 4 * 2 . . C. * 

;/, : • : if" ;Saif- 

. -t^ : - _•..*" * ? j? ^ e r 

IG£ T COUNTER 

tG€T NAX VALUE 

FT£$? Fp^ FULL 

IY£S, EXIT 

INO, 1NCRENINT COUNTER 

I4N0 STORE IT 

ITEST IF NOW FUU 

IYES 

I IF Y£S» CLEAR ACTIVE 

?I*CRE*ENT PETURW AGAIN 

iiHtnimm input pointed 

>GET INPUT POINTER 

fGET HAXIMUH VALUE 

ITEST FOR MAX 

JNO 

IYES, RESET TO BEGINNING 

|NOW f STORE CHARACTER 
ISST STORAGE WORD 



UNTO LEFT HALF 

UNTO LEFT HALF 

iSTORE SACK 
IAND EMIT 
ISAVED RETUSN 



* IJW56 .MAIN 



1 ■/ 



1 7 

la 
2* 

21 
22 
23 

2» 

2^ 
97 

2^» 

gQ 

3 1 
32 

3 3 
34 
35 
36 
37 
3* 
39 

A -A 

41 
4? 
43 



^•27fti 
*'2752 
«>2763 

r 2 7 5 S 
- 2 7 * * 

1^75? 

-2762 
■•• 2 7 *5 3 

1^2764 
^2765 
w2766 

r» 8 7 7« 
"2771 
H2772 
*2773 
^2774 
02775 
£••27 7 6 



»-3 J ^t'K 

c** 2 1 ?• if t? 

i ; " i ^* f' 5 

1'*1VH ^ 

P < 1 * «<• 2 

v 1 ft <* i" '* 
fri o* fc', 4 P t 

«' H*c- i 
*.21*»<f-l 

c^ 2 5 v» •/ 3 
l«b4v-4 
■/» v< fr. 4 y. 3 
t*21/M 

^ 4 1 r f • | 

1H2S-/- 
& 2 4 fr 5 4 
f* p i P &■ ? 

1*1«*?2 

|t;l3r^ 

123*J'P 

P f /14v I 



r i; t s» « * t * -- a 



f * r* * ^ T L f »* 

*►.<: ?l*c; 



CALLIM 



OhTHFi 



* n i k r 



ft P" 












4 § WWII*. I » <y» n i i>» • 

2 « * f > i : ** ? : f « ^ ^ - 1 
5, .SI'S r-P , S»«F sr ?> 



U • * 2 , » 3 

IDA » # i#2 

^ fj V H , * , S N» R 

MOV Pi » K r S N R 

P52 f ,2 

Jf-P .*1 

IS? 1,2 

L u •* -S 1 i 3 

L«:a 1,3,2 

*OS ?., 1,S2R 

jnP .*3 

LDA 0,4,2 

SI A « # 1 # 2 
"'OVZH &%2 

LDA i,C377 

IDA «3J,0,2 

HOVS 0»?« 

A N. , 5 J . * 

J^P 1,3 



7'iS'!' ?QINT£ft TQ COS 
?T£ST ? H£ COU*n?EI? 

li>0 CL£A3 ACTIVE IF ZERO 

SDK, DECREMENT COUMTER 

IINC^£HENT OUTPUT POINTER 

jjse* ^e« value 

f£gl H^X VALUE 

iT£ST FOR MAX 

f NO 

IYES, RESET TO 3EGINM1N5 

|GET WORD 

ITSST THE CARRY 

tin LEFT HALF 

IEXIT 



a'M<57 .MAIN 



? m <* *"- L* V E ^ v ' * ** 






-7 ,-2?7? .^:?ic *M?w?| NID-I. ?"'- 

I w* ¥, 3 P : " 7 •- *^ ' * * ' ' « ^ r ,- ~ 



«? 



:$** 4 CHHij|C?|is FRO** 

■ \ " * S .* > * * 



<S * \ 



1 ft 

! 9 
2* 

r i 
5? 2 
J? 3 
54 
2 3 
?6 
?7 
2H 
?? 

31 
32 
33 



sfi3s>»3 ? *^* ""I SIM 

/• 3 i* # 5 f > 2 1 I c 6 

<#< 3 $/« » f •/ ? £ i ^ 7 

^3^i» v 3M Si 

f-3*U = 1 *h I 7? 

^3^12 J« «> g ^ {/■ ft 



^ r a ;■ . *^»^ 

v C V h > s * 

l '- * i * s « r y * a 



f^£S ? OS£ C??Y 
f*\D TNg ac»S 



ic^asue Interrupt 



tHANDtE TTO Intprrupt 

l£MTFP 0* I^Tr^RU? 4?T£R T*£ CPU ST4TE 

fHAS 8EEN SAVED 



HH4 K'*7 3 5 

r 3 ¥■ ) 5 i* v / 2 / V- 

v3i<l* *-*illl 

i* 3 1* 1 7 fr' ■ w i 1 7 b « 



TOIMi 



NIOC TTO 
J$R OUTSF 
TOCNT 

OOAS ii,TfO 
J^P DISIN 



ICLEAR DONE 

iG£T A CHARACTER FROH 

f^OT £HPTY 



THE iUFFEf 



A i/l W S B .MAIN 






J £ * r. t * I r ^ 

C-*- r *- T : CALLS*- ^XTjk 



^v.^ v s ,-,^' sn c: X 



1 • *,- * ; •■ a r "■ r 1 1 



£ • " / v. 



r » $-<"- 



1 6 

1 y 

2 '•' 
?1 
?2 

pd 

24 

2^ 
2n 
27 
2* 
2 9 
3"* 
, 4 . 1 
3? 
33 
34 
33 

rv- 

37 
38 
39 
4 a 

41 
42 
4 3 
44 



tf 3 ? 

r 3 f 

'-■' 3 ': 

*'■ 3 1 ; 

i 3«- 
v3* 

»/• 3 v 
i'3£ 



21 

2 3 
94 
?!> 
2?? 
27 
3-. 
31 
32 
;V< 
*a 
36 

3*i 

?7 

«2 



ti 3 1" 4 4 
f* 3 f • & 5 
*3M6 

1-3P47 

c S p: 5 1/> 



1 .'<i?4| ?• 

»'"-4V'22f 

It". 5 4 4 M 

17 6 4tH1 

■ • 2 4 p r* 

12fH">f4 
f«?.f/774 

I7b4t- 5 

# ■" V 4 (•'• 7 

I25H 4 
^C'^7^7 
y ! * 2 i « 

v, «/ r 7 & 3 

l- * »/ ? 1 R 
/ ? 4 2 1 ft 

i . 5 4 g 1 w 
^•342X1 
V' 5 4 2 I 2 
V ■ ^ 2 4 3 4 



KEY1NI 



KEYI<M 



KEYI2I 



P3P51 ?>m277 KEY 13 1 

c 3*32 i/.-/i467 7 

«/ 3^-53 t : **• &; 2 1 a 

t.« 3 1*. 5 4 f- 6 1-« 1 7 7 



L d A 

SUB 
lb* 
mOV 

jhP 

J HP 

J>C 

j^p 

ICft 
m V 

J MP 

IS?. 
M n 5 

J HP K 



- * t Y n T 

,TICNT*5.3 

»3 

,TICNT 

, l,SZ» 

EYI3 

&Y2? 
» 3, SNH 
EYI2 
,TICM>6 

9 t,BZR 
EYI* 

ICNT4-6 

TT1 

&YI8-1 



NIOC TT1 
3TA 3,T1CNT4.8 
STA 3,T1CNT 
LOA 3,TICMT+1 

STA 3 f TlCM>2 
JMP #K£YRT 

InTDS 

J s a n « i T A F 

TJCNT 
I n T f N 



« j * ■ * j f z u & e A » D ^C'l' 'I 

ISA, it ^"IfgJjN 

|8£T K£¥90AR0 ^OOI 
ICL&AI? COUNTER 
|G£T COUNT 

iM f JN»2£R0» OK 
IZEPC, TEST mot 
|3-*£YB0ARD ^ODE 
IRgAOE^, T£ST COUNT 
I50NE TO e, ERROR EXIT 
IT£ST ACTIVE 

I IT IS ACTIVE 

I-makp IT ACTIVE 

fAND S?A??T THE REAOEi 



?CIEAR READER 
fCUAR ACTIVE 
ICLSAP COUNT 

ISET INsQUT 

IAND EXIT 



IGcT FRO^ SUFFER 

fTURN INTERRUPT ON 



- -a «f t> 9 ^al 



P S 
P)7 



*■ 5~ 
' 3 J* <M 

3ir«?i 

3 / 6 3 
2 > * i 
**• ^ *• ^ 



- " 5? 



w {.•*, ^ f • 4 
? 5 1* ^ J 



^ 



- ; * ; - ; . ? J 



INI 



r ' ' z ^ £ 

* * - * ^ « *< ;, ; ^ * 

' :- ; m £ 3 7 F 3 * -' 5 % *• £ $ 

EMf f 

: -; " * i v ~ : i, ^ I •* 



1 * 


v 3 v? 7 t 


k 2 ¥-• V. 6 s? 






„: * 


11 f* 1 1 


4 *? 


*'.3e7 2 


"• • W i i »" 






J8i 


*t- -'C 


;» 


-3- 7 3 


V'. 2 v 1 4 t <A 






LL A 


"?» i it 


iq 


i-S/Ja 


t-24ft3P 






_ *' * 


1 C27 


2«* 


fc'3fr-75 


^•3'/.. 15? 






'*. ^ * 


?,""*. ? 


31 


*3*7* 


I 5 ;'* »* i/. ^ 






COM 


2 ',2 


22 


*;W7 


| *", £. \ 4 






su3* •■•- : , 


23 


f • 3 i pi '/ 


"■ ■ 2 1 . t 






JWp 


**£** 


§4 


" 5 I ^ I 


>*>>*.\b% 






?Tfc 


*,**3 


j>S 


( = 3ic»2 


i"'-'0 7 22 






JhP 


< t v : 5? 


3d 


a 3 i & J 


C* f» V! i/> V fc 


TIC 


HR I 


i 




77 


«/ 3 1 w 4 


t> P ft ^ {*• f. 


KEYRTl 


p» 





SH 



". ? 3 



• 2 



::^»t>EM7 the tas switch 

f E ,< I T 

PCy^lENfNT THE ?A§ SWITCH 

fiMD C-ET N£x7 CHARACTER 

ISAV€D RETURN 



.MAIN 



! vr.« 



WE Ai 



^•;^>-;- ■» i 



I ?" i, «y | _ ^ » -- ..j ," -'J S f X L *t 



^ 4 

9 3 

25 

?7 

?S 

2^ 
3-,i 

i *, 
3? 
3,5 

3 4 

3*s 
39 

'41 

<•. 5 

4 3 
4 ^ 

/. 7 

J* 

^ . 

S3 



1 ! 
1 & 
\h 
1 ft 
1 7 
2* 
?! 
52 
9 3 

2S 

96 
2? 
3 :/ 
31 

32 
J 3 
3 4 



••'3 

«<• 3 

r3 

*3 
«•' 3 
I-* 3 
t-3 

«/-3 
v*3 

v3 

w3 

• -.I 



135 
137 
14 1 

143 

145 
146 

\&7 

i5c* 



* " 5 -~ - 



P-S4437 

l* ?F J J § 

? / \ t ? q r ~ ? f 

1 UJ^5 

t A ft 5 i 3 

m^ifi&y 3 

I/. > (r, 4 I' 7 

^i-212 

. s £ 1 ? - 
►•54 168 
^■3*1*3 

• ^ rf 1 ^ 

«/ 2 tf /, * * »DR i I 
1 -"711? 
J>K-./7?7 



9 i 1 1 8 N i 



i <5 sr ▼ 

I AND 



L -"' * i i 
IDA « f 
HCIV 8, 
SUbL* 
.i:-P «♦ 
vICS R 

InC 3» 

,1 r, P R i) 

Nine p 

■ST 4 3, 



STA 
LUA 

.IMP 

LUA 



3# 
3, 
3, 

8. 






R 1 1 % - T 

Rf/OT*6 

0,SNR 

3 
T t 

C n T «• ft 

3, SZ« 

Hi 

TR 

R0CnT*6 

RDCM 

RDCNT*i 

»!„/CnT*2 

CRT* 

M3 

0,1, szc 

Rtt 



r ,-j «« v r 

*?*_• .Si -*»; 

f -» 'J •', * Z C * S ~ i *- " 

IT2S"" ACTIVE 

fT£S T CCUN?<»sSTA? ? ;GSST*M"f 

?S7GP?£D AND AL'nOST £^?TV 
ISKT ACTIVE 



fC«.EAR ACTIVE 

iCLcAft COUN-T 
ISET IN«0U7 

ieXPIR£0» EMD-OF-FJL£ 

ITSST CHARACTER COUNT 

I<3» TRY ^CAIN 



ICK, TH£R«i 4S»r AT LEAST FQUK CHARACTER IN TH£ SUfFSR 
IGET IT 



rftr??7 
.'-.4613 

c^6f 17? 

* * ^' 7 4 5 

fr« a ?. &i I' tg 



^ ti M ^. i 2 

3 15 J 17J 124 

^ (a & ¥ 1 ^ 



RDRTNl 
RMFC*J| 

»RDX 18 

,ROX S 



Xf'TDS 
JS« OUTBF 

J MP ,♦! 

I N T f N 

LDA i # Ci77 
SuBfe 0,1, SNR 
J ,v. H ff R I N * 4 
ISZ RORTN 

J h P f R R T U 
f» 



• 35w^ 



|MOT 



iOISABtg INTERRUPT 
fSET FROM SUFFER 
fPOTMTRR TO DEVICE 

ff,NA8L£ INTERRUPT 



DATA BLOCK 



ITE3T FOR RU90U7 
IVES, ISNORE IT 
IJNCREKEKT RETURN 

IkHO EXIT i«ITN CHAS IN 
5SAVED RETURN 

JRES'A^T CONSTANT 



Aca 



f A- 



*C? 



: 5 A t* £ :9V 



* - v •: , ~ ^ £ s % i % 






- < * ^ ~ >♦ -1 ^ £ 

i ? * *- f * ~ ? % 



1-iz* *o »»ocrss 

*r£5 ? 5c Pf»-*)CSS8 

|T€$* TTO 

IVES, SO SUCCESS 

?v£S. 5C ACCESS 
^ n?0C XN3TSJCTI0N 

EXECUTE IT 

IANO 01SM1S 



A *•«? .MAIM 
M 

*2 

v»3 

0i<8 



f ? v s r | 



v -~ ; a%- 



*. - Cl 



■s-=.5 u^?,-' 





: - - 


- £3i--'S 




■ » 3 2 m 6 


■')5JK5 




*i32&7 


• ^Ui/- 




*-•! 3 2 1 5"- 


. -., « 1 




,•>•". * 


v-4i5/.l 




,* ^ g * j> 


r • ? \ : : 




* 3 213 


*"2/'lM 




I f % - 


v. 5 4 1 v S 




VJ .* i \ ^ 


«^25r3 




<- 3 2 1 « 


. •: 2 : • ? 




-:•?!? 


-.142 Jt; 5 




. • 3 ? J - ■ 


i" J 2 * < ** 




•- a 2 2 f 


- 1 1 ^ h 




*"' 3 2 2 2 


v i7] n 




"3??3 


o ?*!«:. 7 




.•3 22* 


*7Ui 




. 3223 


* 4252 3 




i'3??6 


>-521?2 




-M??7 


^•«>5P15 




'-3 23'/. 


i- vr-pt' W 


;.i«3 






o»h 






*7 






'-:?* 






*o 






I'- 






ll 




£RH8I 1 




:•* 3 if 3 1 


-*2 5i 2 




^3232 


'/. 4 31^6 




-3 233 


•'511"-5 




*323« 


/4444« 




* 3235 


«:-2»>123 




-32 36 


- 32^ 6 




V-.3 237 


«■*• 4 6114 




</3 2 4? 


k 4 | 4 5 8 




'•* 3 2 A l 


"47l«.-l 




v- 324 2 


^47516 




•/%324J 


2'.' : 124 




f/»32<44 


(/■ 4 7 5 v 4 




•"324ft 


y» 4 &t 4 4 ^ 




•- 3 2 4 ft 


r.s&ais 




c*3247 


(^ i? &i p p. $ 



„TXT /BUFFER IS FULL-CAN^OT OC A<i5>«12*/ 



* * 



MAIN 



/ ? Z- >< 
It**? 



2 fr* 1 Sf 3 

fcnKf, it 



t€ * 



J, > *, ] 


-\ • >• ; 


-"*'■?•"«- 


*2*K1 


t" A ? f »5 


«-.'- 7 ; i * 


3 ? * 5 


y * i> *, > - 


t. ; 3265 


•?-]?<; 


v326« 


•-•4 2. "5 J? 4 


/ .32*7 


< 4 ** 5 ? 2 


*3?7fr 


"4?U.i 


.. .^7 1 


■•■521* I 


*. 3 ? 7 ? 


„•. 4 g ! .. 5 


I S27 3 


f ^ :*■ 5 w i 5 


; 3?7< 


g> ./■ ;4 \* (/■ a 



Pft 



■Mfi* 1 



.T 



77 



1 f-'* I 



i/tlj 



■/• 3 3 

••'13 

r * 3 3 

^33 

y 3 3 

^ 3 3 

*33 

./■■ 3 ;* 

• -3,5 

v 3 «5 

.*. .* 

, '" > 3 3 
«'33 
v-33 

..133 
<*• .3 3 

t33 
•- % 3 3 

*33 

>^ 3 3 
?■ 33 
•* • 3 3 
i"3 3 
,•33 
*■* 3 3 
^33 
fc33 
H33 



I* 

J > 

i« 

3 -• 
1/ 
?.* 

21 

22 
?3 
9& 

gt» 
5>H 

'->7 
3"» 
31 

32 
33 
3* 
35 

36 

37 

41 

4? 

63 
A 4 

fl5 
46 
4? 

fU 



• J J? v' 4 fe 1 

* j t ^ % 

« i J 1 1 i 
2v'H-7 

• 4 7 b »/■ 3 
**&?.<? 

:*7U*1 

^i^li 4 
-*711t 

'5252,4 

■47 Sir 3 

^f fn fe 
47 1-1 

. '• \ * 1 » 

•611 1* 5 
' 4 f & 1 6 

• 2 v* 1 i* 4 
' ^ 7 1 i' i 

-•5H<lr4 

•4711) 
'8^lr7 

f ^ ^ i .1 

' 4 2 1 r 5 



COmnanO is Tew*l*AT£0 A km; ^£1^8 0£C>JTE^I5>«sU»/ 



- A V. 6 5 .HAhi 



• a 






r .* v $ 4 § 



14 S 



tl 

12 
13 






:*. .9 * * 



&•• 3 
v3 

p3 
v*3 
« 3 
i"3 
v*3 
^3 
fr>3 

y 3 

J* 3 

^3 



35 
3 f> 
3C 
36 

3e 
3e 

3? 
3? 



*3373 

",^o37^ 
¥•3375 
/3376 

•<• 3 4 i $ 
v34?l 
* 3 4 s» 2 



i^3*i3 
t*34P4 
/34G5 

«34|p 



*-*: ? 



2 «t 



4 -•«?'/ 

' 4- *. y 7 

* *i % f > 

« , i ' r - 

* I 1 ! 7 

£ 4 4 * ;/ 

4 4 5 ! 4 
42516 

4 ? « 4 i 

4fc*23 
42fv,-2 
2fl2? 

/ M v* k 1 ^ 



i'521?3 

I.: 4 7 5 1 6 
02^12* 
fr>47 5t-6 
t»47l25 

fr* i* ft 5 ^ 4 

»4 ? ^ P i 2 



f 4 tt 5 i 5 
v 5li* 3 
02*1 17 

msiti 5 
k>A7522 
^ ** $ 1 2 2 



< c > «, 5 j 



TX' 



/ £ a j; * V v & c- w . £ | 



NE 



i / 



ERMS6I »^KT /SI?? ^CT FOU^D^ < 5>« I 2>/ 



ERWS71 S TXT /MACRO ERRO^/ 



t -„ J! i 






4 9 3 

£»?<? 

431 

.i a 3 

434 



?dl 1 1 

g44n 1 

•a 7 < ^* - 1 
*?44fc? 

: ^ (# tt ;<? J/f 



-«: 



* / 6 7 , ^ a i 



P3 



77 
II 

12 
13 

1<* 

15 

! 6 
17 
t** 
IS 
2»» 
91 
22 
2 3 
04 
?5 
.?? 

?.; 

2<? 
51 



3 «r :* ? 

3 £ 4 *> 

I s 4 /. 2 

.-} ft 4 A 

. *- « * fc 

v '- « < " 

3 £ 4 ; 
•«3*&* 



fr«« it P 5 2 P 

- x. % r ? 

~ ?• i * i- 4 

.,A? 4 6 ^ 

'•'*>? 125 

fc2v*51 

» H 1 1 l 7 
§i 4 7 P 4 M 

■• "^ 2 i S * 
< <7 &* \ 



■ 3 4 *> 2 v: 4 a 5 fe 9 

. .5d*/» :. *M5?4 

3 j 5 1: / 4 4 £ <c * 

i-34$* •• 2^116 

n A 4 5 7 v g * a M 

;'-3 4** r4?4£." 

, ^ *j *, | f, ? n 1 fc 2 

\^h? 'M7 5 l b 

«/. 3 a 6 3 v ? 4 i i- 4 

k- 3 4 * #J F?44f?2 

v 3 4 f 5 v- 9^V'17 

y- 3 4 & 6 V C* fc •»* F W 



v es55i . i '"-; ? /**! 



mn 



^ 3 



IOEFI^vE 10 BUFFERS 
t».*ntfl'7 .eiK TIS2£/?^2 

tobufi 

tM»irt5-2 .8LK PS2E/2 + 2 
SDSUFt 



*£?0 Of T^£ PROGRAM^ ?I u L€-i 

*43a3 ** 15*33 f>l345i 

v.43«* * 15433 ^13433 

P43P5 /-15433 E\HPRf C418433 



- *» ,i s. C .• 



fti^S^ 



,£*-0 STR' 



